
A USERS MANUAL FOR A COMPUTER PROGRAM 
VHICH CALCULATES TIME OPTIMAL GEOCENTRIC 
TRANSFERS USING SOLAR OR NUCLEAR ELECTRIC 
AND HIGH THRUST PROPULSION 


Lester L. Sackett, iheodore n. Edeibaum, 


Harvey L. Malehow 


N74-30284 


Jnclas 


G3/J0 54632 


Camt)fkJ 96 , Massachusstts 02130 





<4 



R-827 


# 

■€ 


A USERS MANUAL FOR A COMPUTER PROGRAM 
WHICH CALCULATES TIME OPTIMAL GEOCENTRIC 
TRANSFERS USING SOLAR OR NUCLEAR ELECTRIC 
AND HIGH THRUST PROPULSION 


1 



by 

Lester L. Sackett, Theodore N. Edelbaum, 
Harvey L. Malchow 







ACKNOWLEDGEMENT 


This report was prepared under Project 55-51300 sponsored by 
the Goddard Space Flight Center, National Aeronautics and Space 
Administration through Contract NAS 5-21791. The Technical Monitor 
was Mr. Kenneth I. Duck. 

The publications of this report does not constitute approval by the 
National Aeronautics and Space Administration of the finding or the 
conclusions contained therein. It is published only for the exchange 
and stimulation of ideas. 

A number of people have contributed to the success of this program. 
We would particularly like to thank Kenneth Duck of GSFC for his active 
support and encouragement, Huntington Small of Lockheed for his high 
thrust optimization program, Saul Serben of CSDL for several subroutines 
and for advice and assistance in programming. Alan Stanley of the 
Lincoln Laboratory and James Cake of NASA Lewis for their advice on 
radiation degradation and Michael Teague of GSFC for providing models 
of the radiation belts. 



Abstract 


This manual is a guide for using a computer program which 
calcvdates time optimal trajectories for high-and low- thrust geocentric 
transfers. Either SEP or NEP may be assumed and a one or two 
impulse, fixed total AV, initial high thrust phase may be included. 

Also a single impulse of specified AV may be included after the low 
thrust state. The low thrust phase utilizes equinoctial orbital elements 
to avoid the classical singularities and Kryloff-Boguliuboff averaging 
to help insure more rapid computation time. 

The program is written in Fortran IV in double precision for use 
on an IBM 360 computer. The manual includes a description of the 
problem treated, input/ output information, examples of runs, and 
source code listings. 

The NEP computer program is called NECKSPOT (Nuclear 
Electric Control Knob Setting Program for Optimal Trajectories) 
and the SEP program is called SECKSPOT. 
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SECTION I 


DISCUSSION 


1. 1 Objective 

This computer program is designed to rapidly compute minimum 
time geocentric transfers for combinations of high thrust and low 
thrust stages. The most general configuration treated by the program 
contains three stages. The first stage is a high thrust stage such as 
a space tug, the second stage is a nuclear electric (NEP) or solar 
electric propulsion (SEP) low thrust stage and the final stage is a 
high thrust stage which accelerates a fixed payload. Either or both 
of the high thrust stages may be eliminated. 

For a three stage case, the program operates in the following 
manner. The vehicle is assumed to start in a low altiU de circular 
orbit. This orbit has a specified altitude and inclination and an 
optimized line of nodes. The first stage then performs a minimum- fuel 
time- open transfer to an optimized changeover orbit. This transfer 
is assumed to use a fixed AV and may involve either one or two impulses. 
All perturbations to the inverse square field are neglected in this 
phase. The second stage then performs a minimum- time low thrust 
transfer to a second optimized changeover orbit. This transfer is 
calculated by Kryloff-Bogoliuboff averaging and includes the effects 
of oblateness. If solar electric propulsion is used, the program 
may also calculate the effects of shadowing, radiation degradation, 
and the varying solar distance. The third stage then makes a minimum 
fuel, single impulse transfer through a fixed AV to the final orbit. 

This final orbit has a specified major axis, eccentricity and inclination. 
Its line of nodes and line of apsides are optimized. The overall 
trajectory is a minimum time trajectory for specified increments 
in the high thrust phases. 

In addition to the three stage case, the program can be run 
using purely low thrust or usi' ’ow thrust with either initial or 
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final impulses. For pure low thrust, the final line of nodes and 

line of apsides may also be specified as well as major axis, eccentricity 

and inclination. 

1. 2 Solution Method 

A more thorough discussion will be found in the final report 
(Ref. 1). In addition the low thrust optimization technique has been 
previously described (Ref. 2). The basic technique is Kryloff-Bogoliuboff 
averaging (Ref. 3) of both the state and the costate. The averaged 
rates of change of the mean values of the state and costate are found 
by numerical quadrature. The differential equations for the mean 
state and costate may then be integrated in large time steps (typically 
days). A set of nonsingular orbit elements, the equinoctial elements 
(Ref, 4), is used to avoid numerical difficulties. 

The effect of oblateness is included by analytically adding its 
rate of change of the mean state and costate to that due to thr ust. 

The effects c ' shadowing are calculated by assuming that thrust is 
turned off in shadow. The shadow entrance and exit limes are 
calculated analytically by solving a quartic equation. The effects 
of radiation degradation are calculated by fitting an equivalent 1 
MEV electron flux as a function of radius and geomagnetic latitude. 

The power is then expressed as a function of the total accumulated 
particle fluence. As for all perturbations, the effect of radiation 
degradation on the costate as well as the state is calculated. 

The first stage high thrust optimization is based on a very 
efficient computer program developed by Huntington Small (Ref. 5, 6). 

This program uses a special set of variables and form of the switching 
conditions developed by Small. Because the initial orbit is circular, 
it was possible to use an existing analysis (Ref. 7) to constrain the 
initial costate to the region that yields solutions. This program rapidly 
calculates either one or two impulse minimum- fuel time- open trajectories. 
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Because these transfers always require less than a full revolution, 
their time is negligible compared to the low thrust phase and is not 
cons idered. 

The third stage high thrust program applies a single impulse 
in the direction of the primer vector at the location of its maximum 
value on the final orbit of the low thrust phase. This produces an 
optimum single impulse transfer to the terminal state. 

The overall trajectory is optimized by a shooting method. 

Initial values of the unspecified states and costates or functions 
thereof are chosen at the initial time. An optimum high and low thrust 
trajectory is then generated by integrating the state and costate 
through all three stages. This will generate an optimal trajectory 
to the wrong terminal state. A sensitivity matrix is then generated 
by varying the initial conditions and running a set of neighboring 
trajectories. A Newton iteration on the initial conditions is then 
used to drive the terminal errors to within specified bounds. The 
final converged trajectory is then a minimum time trajectory for 
the specified velocity increments in the high thrust phases. 

The NEP program and the SEP program have separate blocks 
of certain subprograms, while also sharing several others. The 
state for NEP includes the orbital elements while for SEP, mass and 
fluence are also included in the state. 

1.3 Equinoctal Oru'tws.1 Elements 

The low thrust trajectory calculations are done in equinoctial 
coordinates (Ref. 4). When trajectory information is printed both 
classical and equinoctial elements are included. The costate includes 
the adjoints to the equinoctial orbital elements, \djoints to the 
classical elements are generally not calculated or printed. 

The equinoctial orbital elements are defined in terms of 
the classical elements by the following equations. 
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a = a 

h = e sin (co+ 0) 

k = e cos (co 

p = tan sin 0 

q = ^ 

where a is the semimajor axis (in the program output the equinoctial 
a is usually given in earth radii and the classical a in kilometers), e 
is the eccentricity, i is the inclination, Q is the longitude of the ascending 
node, and to is the argument of perigee. The classical elements 
are in terms of an earth equatorial coordinate system, with the x 
axis towa»'d the vernal equinox and the z axis through the N pole. 

A 

The equinoctial coordinate frame is defined by unit vectors f , 
g, w illustrated in Fig. 1. and defined by 
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The position in an orbit can be indicated by the eccentric 
longitude, F, where 

F = E + C0+ n, 

and where E is the classical eccentric anomaly. 
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I. 4 Options 


The options listed here involve those associated with the physical 
problem considered, i. e. the nature of the trajectory and orbits, 
the propulsion system, and physical effects which may be included, 
and not the options Involving variations in the numerical computation 
techniques. The latter are indicated by the listing of the input variables 
(Sec. IV) and the comments on their selection in Sec. VI. 

1) Low thrust may be SEP or NEP. The decks are slightly different. 

2) Initial high thi .st may be used with SEP or NEP. Total ^V 
for the initial high thrust is an input. 

3) A final impulse may be included: the is an input. 

4) Either a, e, i, Q, to or just a, e, i may be specified at the 
final time. If high thrust is included the final D and to are 
free. 

5) If there is no initial high thrust, the a, e, i, fi, to for the 
initial orbit are input. If initial high tlirust is included, the 
initial orbit must be circular; the initial H may be selected 
(with SEP, NEP) or left free (for SEP). 

6) Initial power may be selected. 

7) Specific impulse may be selected, 
d) Initial mass may be selected. 

9) Oblateness effect may be included or not included, 

10) For NEP, power may be constant or may degrade exponentially 
with a user supplied time constant. 

11) For SEP, ti; effect of Van Allen radiation on power output 
ma> be includ-jd or power may be constant (the latter v/as 
included mainly for test purposes). 
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12) A value for housekeeping power may be included. 

13) For SEP, the shadow effect may be included or not. 

14) For SEP, power may vary with spacecraft distance from the sun, 
or else the distance may be assumed to be constant at i A. U. 
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There are three bloeKs of subprograms, one for NEP, one 
for SEP and a block of subprograms which both NEP ;md SEP have 
in common. High thrust may be used in combination with either NEP 
or SEP. The SEP program includes additional state and costate 
variables and has several more subprograms than the NEP deck, 
because of the shadowing and degradation effects. Thus size and run 
time is considerably greater for the SEP deck. 

The program is coded in Fortran TV in double precision for 
use on an IBM 360 computer and has been compiled using a G compiler. 
Follov/ing is a list of subprograms with a brief description for 
whic‘' the SEP ai i the NEP decks have separate versions, but which 
perform essentially the same function. 

INPUT, reads and prints input data, sets initial conditions 

OUTPC, prints summary of converged trajectory characteristics 

ITER, either the Newton-Raphson or Modified Newton-Rapbson 
iterator 

PHTN, prints information at each iteration of ITER 

DC ROUT, essentially inverts a matrix 

TRAJ, calculates a singli. trajectory by calling the high thrust 
subroutines and the low thrust differential equation 
integrator, then calculates error vector 

OUTP, prints information at each time step of low thrust integrator 

FUNCT, talcula* >s low thrust aver ,,ed derivative for integratoi- 
The following subprograms are shared by the NEP and SEP decks. 

OBLATE, jtlculates single averaged effect of oblateness 
on state and costate 

QUAD, either 4, 8, 16 or 32 point vector gaussian quadrature 
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FCT, EVALMP, calculate the derivative due to thrust for 
state and costate before averaging 

MAINE, the main calling program for the initial high thrust 
calculation 

START, called by MAINE, sets initial values of S array 

TIME, iterates on ^ V to satisfy Small's optimality condition 

SWITCH, computes the coast angle 

DTDU, updates the S array after an impulse or a coast 

OUTHI, prints initial high thrust orbit characteristics, also an 
interface with following low thrust phase 

IMPLS, calculates effect of a single final impulse 

YF, calculates primer vector for IMPLS 

CONTL, main controlling and calling program for SEP 
and NEP decks 

MAINE, START, TIME, DTDU are taken directly from Small's 
thesis (Ref. 5). MAINE was altered slightly, the other subprograms 
have not been changed at all. For further information and discussion 
concerning these subprograms see Ref. 5. 

The following subprograms are only part of the SEP deck. 

EARTH, sets certain constants associated with the earth 
rotation, revolution and magnetic field 

SUN, calculates sun's direction and magnetic field orientation 

SHADOW, calculates shadow entrance and exit angles (if any) 
and certain associated partial derivatives 

DQRTIC, solves a quartic equation 

DCUBIC, solves a cubic equation 

FLUX, calculates flux effect on state and costate 



In addition to the above subprograms, the IBM Scientific Sub- 
routine Package Runga-Kutta (DRKGS) or Predictor- Corrector 
(DHPCG) integrators are required (Ref. 8) A chart showing the relation 
between the various subprograms is shown in Fig. II- 1 for the NEP 
deck and in Fig. II- 2 for the SEP decks. An overall flowchart and 
flowcharts of some of the main calculations are given in Appendix A. 

Additional detail on the above subprograms is given in the 
final report. 
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SECTION III 


CONSTANTS AND CONVERSIONS 


The following are some constants and initial values which are 
assumed. 

equatorial earth radius = 6378. 16 km (Ref, 9) 

3 2 

earth gravitation coefficient = 398601.2km /sec (Ref. 9) 
oblateness J 2 * .0010827 (Ref. 9) 

Earth's orbital elements (epoch JD= 2436935. 0) (Ref. lO) 

a = 1 A. U. 
e = . 016726 
co= 102? 25253 

mean orbital motion = . 985609° /day (Ref. 10) 

obliquity of ecliptic = 23? 45 (Ref. 10) 

earth rotational frequency = 359?0170416/day (Ref, 10) 

Latitude of north magnetic pole = 78?6 (Ref. 11) 

Longitude of north magnetic pole * 289? 9 (Ref. 11) 

3 

Internal units are in equatorial earth radii, 10 kg. , and internal 
time units calculated such that a circular orbit at 1 earth radii would 
have a period of 2 tt internal time units. In this system of units the 
gravitational coefficient, fi - 1, Other conversions can be derived 
from these basic equivalences. For example, 

units to seconds = 806. 8147206095579 
units todays = .0093381333403884 
units to kilowatts = 77458. 55283702227 



SECTION IV 


INPUT 


IV. 1 Introduction 

The quantities discussed in this section are all read by the 
subprogram INPUT. Unless otherwise indicated each value is read 
on a separate line, real variables in fixed format (F25. 15), integer 
variables, beginning with i, ), k, 1, m, n are read in format, 12. 

The input for the NEP deck and the SEP deck are listed in this section 
along with a brief description and nominal values, if any. 

IV. 2 Input for NEP Deck 

Initial orbit characteristics, 

W(l) km, semimajor axis 

W(2) eccentricity 

W(3) (degrees), inclination 

W(4) (degrees), longitude of ascending node, not used if initial 

high thrust 

W(5) (degrees), argument of perigee, not used if initial high thrust 

Initial guesses for iteration parameters 

ZLO(l) \ , adjoint to semimajor axis or if initial high thrust the 

cl 

transformed T (see Ref. 6) 

ZL0(2) adjoint to orbital element h or if initial high thrust the 

transformed Small variable k(see Eq. 6 of Ref. 6) 

ZL0(3) Xj^, adjoint to orbital element k, or if initial high thrust, 
the transformed Small variable j (see Eq. 6 of Ref. 6) 

ZL0(4) Xp, adjoint to orbital element p, or if initial high thrust the 
scale factor relating high and low thrust costates 
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ZL0(5) adjoint to orbital element q, if initial high thrust, not used 

The desired final orbit 
WF(1) (km), semimajor axis 

WF(2) eccentricity 
WF(3) (degrees), inclination 

WF(4) (degrees), longitude of ascending node, not used if NOP=2 

WF(5) (degrees), argument of perigee, not used if NOP= 2 

TF2 (days), guess for final time 

PKW (kw), electrical power including efficiency factor 
SPIM (sec), specific impulse of NEP 
AMO (kg), initial mass (NEP) 

The following input may be read or, optionally, left at nominal 
values. IRDFLG is read followed by the additional input or operations 
and then IRDFLG is again read, until IRDFLG = 01 and input is ended. 


IRDFLG 

1 End of input 

2 IPR, print flag 

3 NIMAX, Max. no. of iterations 

(if 0, by pass iteration to print time 
history) 

4 TFMAX2, (days), max. TF 

5 DT2, (days), time step for integrator 

6 UEB, upper error bound for integrator 

7 EW, Error weights (Format 5D6. 1) 

8 UTKM, Equatorial earth radius 

3 2 

9 GM, (km I sec ), earth grav. 
coefficient 

10 NOP = 1, five orbital elements specified 

at TF, use only if IHI= 1 

= 2, tnree orbital elements 
specified at TF 


NOMINAL 

0 

20 

190. 

1 . 

I.DIO 

1 . , 1 . , 1 . , 1 , , 1 . , 0 
6378. 16 

398601. 2 

1 
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11 

12 


13 

14 


14 

15 


16 

17 

18 


Sets oblateness coeff, AJ2, = 1. 0827D- 3 

STEP, Step size for numerical differentia- 
tion in ITER 

KSTEP = O.STEP as fraction in ITER 
= l.STEP as constant in ITER 
IPOW * 0, constant power 

= 1, exponential degradation 
BB, (sec), time constant for degradation 
PH, (kw), housekeeping power if IPOW* 1 
EMPTY 

IHI = 1, low thrust only 
= 2, high/low 
= 3, high/low/high 
= 4, low/ high 

DVIl, (m/s), total initial high thrust AV 
DVI2, (m/s), AV for final impulse 
EMPTY 

FLIM, Norm limit in ITER routine 
SGN = -1, if initial is negative 
* +1, if initial X. is positive 


0 . 


l.D-6 


0 


1 


0 . 

0 , 


l.D-6 

SIGN (WF(3) - W(3)) 


Additional information concerning the meaimg of these \ riables 
and suggestions in setting their values is given in Sec. VI. 


IV. 3 Input for SEP Deck 
Initial orbit 

W(l) (km) semi major axis 

W(2) eccentricity 

W(3) (degrees) inclination 

W(4) (degrees) longitude of ascending node, not used if any high 
thrust and NODE* 1 

W(5) (degrees) argument of perigee, not used if any high thrust 

W(6) (kg) mass at beginning of low thrust stage 

14 2 

W(7) (10^^ equivalent IMEV electrons/cm ) initial fluence 
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Initial guesses 


ZLO(l) adjoint to semi major axis or if initial high thrust the 

transformed T (see Ref. 6) 

ZL0(2) X, , adjoint to orbital element h or if initial high thrust the 
ti^nsformed Small variable k (see Eq. 6 of Ref. 6) 

ZL0(3) X. . adjoint to orbital element k, or if initial high thrust 
tne transformed Sm.all variable j (see Eq. 6 and Ref. 6) 

ZL0(4) X , adjoint to orbital element p, or if initial high thrust 
tl?e scale factor relating high and low thrust costates 

ZL0(5) Xq, adjoint to orbital element q, or if initial high thrust, 
the long, of node (radians) if NODE=0, or adjoint to long, 
of node if NODE= 1 

ZL0(6) Xj^, adjoint to mass 

ZL0(7) Xp^, adjoint to tluence 

The desired final orbit 
WF(1) (km) semimajor axis 

WF(2) eccentricity 

WF(3) (deg) inclination 

WP(4) (deg), longitude of ascending node, not used if NOP* 2 

WF(5) (deg), argument of perigee, not used if NOP* 2 

TF2 (days), guess for final time 

PKW (kw), electrical oower at 1 A. LI, including efficiency factor 

SPIM (sec), specific impulse of SEP 

TL Julian date at initial time 

The following input may be read or, optionally, left at 
nominal values. IRDFLG is read followed by the addition input or 
operations and then IRDFLG is read again until IRDFLG * 01 and 
input is ended. 


IRDFLG 


NOMINAL 

1 End of Input 

2 IPR 

print flag 

0 

3 NIMAX 

max. no. of iterations 

(if 0, bypass iteration to print time 

history) 

20 

4 TFMAX2 

(days), max. TF 

190. 




5 

DT2 

(days), time step for integrator 

1, 


6 

UEB 

upper error bound for integrator 

I.DIO 


7 

EW 

error weights for integrator (7D6, 1) 

1.. 1.1,1. l.( 


8 

UTKM 

equatorial earth radius (km) 

6378. 16 


10 

GM 

(km^/sec^) earth grav, const. 

398601, 2 


NOP 

= l,five orbital elements specified 
at TF 

1 




use only if IHI= 1 





= 2, three orbital elements specified 
at TF 
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Sets oblateness, 'X.I2, = 1.0827D-3 

0. 
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STEP 

step size for numerical differentiation 
in ITER, 8 dim. , eighth element for 
time variation of Hamiltonian 

l.D-6 

< 


KSTEP 

= 0, step as fraction in ITER 

0 



= 1, step as constant in ITER 
(except STEP (8)) 


i 1 

13 

ISON 

= 0, shadow effect off 

0 

I 

i 

. 

- 

1’ 


= 1, shadow effect on 


1 

J 

\ 14 

» 

ISUN 

= 0, sun distance effect on power off 

0 

i J 



= 1, effect on 


■ 

t 


PH 

(kw) housekeeping power 

0. 

1 ^ 


I HI 

= 1, low thrust only 

1 

1 ? 
1 '!»■ 


= 2, high/ low 


1 I 

i’l 

s 

i 

k 

", 

E 

DVIl 

= 3, high/low/high 
= 4, low/high 

(m/s) total initial high thrust AV 

0. 

f 


DVI2 

(m/s) AV for final impulse 

1. 


i 

NODE 

= 0, initial line of nodes free, X-^ fixed 


i 

J ^ 

16 

IPOW 

= 1, initial line of nodes fixed, Xq free 
= 0, constant power 

I 


1 

FLIM 

= 1, degradation effect 
norm limit in iteration routine 

l.D-6 


1 18 

SGN 

= -1, if initial X^ is negative 

SIGN (WF(3) 


= + 1 . 


if initial X- is positive 
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IV. 4 Comments 


As coded at the time of this writing the following limitations exist. 
For NEP and NOP=2 (final coand Q free), the final eccentricity and 
inclination should not be set to zero; they may be set to small numbers 
(e. g. e^ = .0001, i^ = .01°). For NEP and initial high thrust, 
the final inclination should not be set equal to the initial inclination. 
This may also cause difficulties for SEP and initial high thrust. When 
initial high thrust is included, ZLO(l) and ZL0(2) (i. e. T and j) should 
not both be set to zero. Final inclination should not be set to 180°. xAt 
this writing there has been little experience with inclination greater 
than 90°. Also the coded equations are not valid for eccentricities 
greater than or equal to one. 
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SECTION V 
OUTPUT 


Most of the output Is self-explanatory and a look at an example 
will familiarize the user with it. There are certair basic groups of 
output. The first is the printing of the read- in initial data and a 
few internally set constants. Normally this will be followed by output 
from the iterator. After convergence, a summary of characteristics of 
the converged trajectory is printed. Finally, a time history of the 
converged trajectory will be printed. Usually, even if convergence was 
unsuccessful, a time history of the last trajectory to be calculated will 
be printed. 

The printing of the initial data should be under itandable. There 
are a few abbreviations used. 


A, 

E, 

I. 

LON ASC NODE 
ARC PERIG, 
SPEC IMP, 

EXH VEL, 

M/S, 

E. R. /T.U., 

UTKM, 

UTS, 

UTD, 

UTKG, 

UTKW,, 

UTMS2, 


semi -major axis 

eccentricity 

inclination 

, longitude of ascending node 
argument of perigee 
specific impulse 
exhaust velocity 
meters / second 
earth radii/time unit 
internal units to kilometers 
internal units to seconds 
internal units to day." 
internal units to kilograms 
internal units to kilowatts 

2 

internal units to meters /sec 


After the initial input print, the iteration begins, i’he iteration 
number (ITER NO. ) and the total number of calls to TRA-J are printed 
followed by X, the iteration parameters (ZLO ) , then Y, the error in the final 
conditions. The final conditions are the final values of a, h, k, p, q if 
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NOP = 1. or a, e, tan^ > ^ co " ^'^m' ^n finally 

the Hamiltonian. Then the final time (TF) is pi'inted in internal units, 
followed by, FC , the sum of the squares of the errors in the final 
conditions. For convergence this value must be less than FLIM, the 
"norm limit in ITER". In order to calculate the pni'tial derivative 
matrix or sensitivity matrix the nominril valu "x" are changed 
slightly by inputed amounts; these perturbec. v • ot X (X(I) + OX(I)) are 
next printed followed by the corresponding Y. the partial 

derivative matrix is printed as well as its determinant. This matrix is 
inverted and premultiplies the error vector to obtain the changes in the 
X's, DELX:S, which are next printed. 

A new trajectory is calculated and the sum of the squares of the 
errors in the final conditions is printed (FI). If this is smaller than 
Fo, a new iteration begins; if it is larger than FO, the DELXrS are 
halved and printed. This continues until FI < FO or until a certain number 
of halvings. What follows depends on how well the method converges and 
on whether the Newton- Rapnson or modified Newton- Paphson subprogram 
is used. Further output is basically permutations of the above, terminating 
with convergence or a message indicating lack of success. 

After exit from the iteration, a summary of characteristics of 

the last trajectory (the optimal, if convergence was successful) is 

printed. Included are the actual final orbital elements, the error in the 

final orbital elements, the values for the iteration parameters, the 

14 

final time, the equivalent particles (fluence) in units of 10 (for SEP), 
the final mass, the ratio of final to initial mass, the final power, the 
ratio of finai to initial power and the total low thrust AV(DELV). 


Next is printed a time history of the final (optimal if convergence 
was successful) trajectory. If NIMAX - 00, then a time history is printed 
immediately following printing of the input data, bypassing the iteration 
routine, and summary print. If the trajectory includes initial high thrust 
impulses, the orbit number is printed (ORBIT = ) followed by 

"EQUINOCTIAL O.E. AND COSTA TE/S. F. 1000", after which the 
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equinoctial orbital elements (a, h, k, p, q) and the equinoctial costa‘e 
divided by the scale factor x 1000, ..hich relates the hifh and low thrust 
costates and is an iteration parameter. Following "CLASSICAL O. E, " 
are printed the classical orbital elements (a(km), e, i Q{°), « '°)). 
Also printed is the true anomaly at which the last impulse occurred, 
and 0, T and ^ V where the thrust direction is given by 

P * sin 0 e^j + cos 0 cos T + cos 0 s’n ^ 

a 

where 6j^, are unit vectors, e^ along the radtus vector, e^ 

perpendicular to the orbit and e^^ = e^ ®R ^ 

Next is printed the low thrust trajectory tirre history at each 
time step. First is printed TIME in various units. (DV(K/S)) in 
kilometers /sec and the time step number are also printed. Next 
is printed tiie equinoctial orbital elements (a, h, k, p, q) and mass 

Q 1/1 

(10 kg) and fluence (lO particles) if SEP. Then classical orbital 

elements (a, e, i, Q, to) and mass (kg', power (kw), thrust (newtons), 

2 

and thrust acceleration (meters /sec > Next is the cos*^ate, then the 
state derivative, then the costate deriv Mvp and then the value of the 
Hamiltonian, the period (hours), perigee and apogee (km) and the 
divisions of the time step performed by tiie integrator. For SEP 
with shadowing the time spent in shadow is printed in hours and as 
a fraction of the period (if the orbit passed through shadov/). This 
print is repeated at each time step. 

Finally, if a final impulse is included, equinoctial and classical 
orbital elements are printed for the final orbit, as well as the 
impulse direction and location in the equinoctial coo’^dinate frame. 

A number of error messages are scattered throu'^h the code. 

A few will be mentioned here. Several, in INPUT, c:.ii attention to 
bad input data. For bad input data following an IRDFLG value, 
a message, IRDFLG = (number), is printed. In some cases additional 
information is given. When shadowing is included, a message, ISHAD=1, 
indicates that only one shadow crossing was found. This arises 
from small numerical inaccuracies in solving the quartir equation 
and can usually be ignored. 
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SECTION VI 


COMMENTS ON INITIAL GUESSES AND OTHER PARAMETERS 


Picking initial conditions is very important for running a program 
such as this. There are no built in values and the actual choices of 
tl i user can greatly influence the rapidity of convergence or, 
in some cases, if convergence occurs at all. As additional perturbations 
arc added to the basic most simple problem, solution becomes more 
and more sensitive to the initial parameter choices, including those 
parameters of subprograms which affect numerical accuracy such as the 
integrator and its parameters (error bound, error weights, time step) 
and quadrature formula (8, 16, 32 point), and step size in the calculation 
of the numerically derived sensitivity matrix in the 2PBVP solutions. 

The usual difficulty when looking at a new case will be picking 
the initial values for the costate (when initial high thrust impulses are 
included, some of the iteration parameters are functions cf the actual 
costate) and the guess for the time of flight. Frequently ball-park values 
for these parameters will be known from previous similar cases. If 
nothing is known about the likely values it may be less costly to run a 
simpler case (e.g. without shadowing or obiateness) and with less accuracy 
(a lower point quadrature formula or a larger time step). However, if 
numerical accuracy is too poor, convergence will be affected. The 
converged values for such an example would then be input guesses for the 
more complex and more accurate case. 

A less accurate solution might utilize a 8-point quadrature and 

_4 

time steps of tiom 3 to 6 days for low thrust accelerations of 10 g's 
with smaller steps for larger accelerations and vice/versa. 

Previous expei ir ^e has shown that convergence can be particularly 
difficult when shadowing is included. One useful technique in this case 
is to get convergence for a nominal case without shadowing (or without 
other perturbations which may be causing trouble) and then to add 
shadowing, and using the iteration parameter values from the nominal 
converged case as input to the shadow case, try to converge to a point 
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along the nominal trajectory (using a corresponding final time). 

These new values for the iteration parameters can be used (again 
with a corresponding final time) to converge to a point further down 
the nominal trajectory. This process is continued until the desired 
final conditions are met. Three to six steps might be used. This 
procedure helps insure that the guessed initial trajectory is not too 
far from the desired extremal. 

If the approximate AV is known, a final time estimate can be 
calculated assuming constant thrust acceleration. 

AV = a • t^ 

The initial guesses for the iteration parameters must be specified. 
These are ZLO(I), I = 1, 5 for NEP and ZLO(I), I = 1, 7 for SEP. 

For SEP (with or without high thrust) ZL0(6) is the initial adjoint 
of mass and ZL0(7) is the initial adjoint of fluence. Typical 
values are 


ZL0(6) = - 5000. 
ZL0(7) = - 100. 


For SEP or NEP, without initial high thrust, ZLO(I), 1= 1, 5 
are the initial adjoints to the equinoctial orbital elements (a, h, k, 
p, q). ZLO(l) should always be non zero and positive for orbit 
raising. The others may have positive, zero or negative values, 

3 

ZL0(2) and ZL0(3) with magnitudes usually less than 10 . ZL0(4) 

4 

and ZL0(5) with magnitudes usually less than 10 . The signs depend 
on the values of h, k, p, q. Typical values are: 


ZLO(l) = 3000. 
ZL0(2) = -100. 
ZL0(3) = 500. 

ZL0(4) = -100. 
ZL0(5) = -5000. 


1 
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Whet'i initiul high *hr-ast is combined vith SEP or NEP, ZT 0(1', 
1=1,5 are no longer the adjoints to the orbital elements. Instead 
the first three elements are related tc Small's variables T, k, i 
(Ref. 1. 5. 6) by 


T = 


2 


ZLO(l) 

I + ZLO (1)^ 




t 



ZLt:2) 

k = cos T* (. 75 + .25 — — - ) 

1 + ZL0(2)^ 



,j = (1 ^ k cos r ) . ' T-'- ^ . ZL0(3) 

cosT + k ./i+ zlo(3)^ 

The above transformation insures that T, k, j are maintained within 
valid bounds for the initial circular parking orbit for all values of 
ZLO(I), I = 1,3. ZL0(4) is a scale factor, actually relating the 
adjoints for the initial high thrust and the low thrust phases of a 
trajectory. This value will almost always be around 1. 

For high thrust with NEP, ZL0(5) is not used but should be 
set to some arbitrary value such as 1. Two options exist for high 
thrust and SEP. If the initial w is fixed (NODE= 1) then ZL0(5) is 
proportional to the adjoint to Q. Theoretically this should be zero 
if non- thrusting perturbations are axially symmetric, and in any 
case will typically have a magnitude less than 1. 0. The other 
option is to let be free (and therefore the initial adjoint to is 
zero). ZL0(5) is then n. This option may be used if the non- thrust 
perturbations are not axial symmetric (about the geographic poles). 
This includes the effect of a tilted radiation field or shadowing. 0 
is measured in radians and so ZL0(5) will typically be between -ir 
and + 7 T. Convergence will be facilitated if the correct quadrant is 
known. 
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Generally, T will have a magnitiide less than 20“ so that ZL0(1> 
will have a magnitude less than .3 or so. ZL0(2) is typically positive 
around 1. ZL0(3) typically has a magnitude around 1. 

Typically values for the NEP program 

- . 1 

1.0 

.2 

1.5 

1. 0 (not used) 

for the SEP program 

- .2 

.4 

- . 1 

.9 

0.0 

The above discussion simply gives an order of magnitude feeling 
of values for initial guesses. More information can be gained by 
looking at the definitions of the iteration variables and then looking 
at particular cases of interest. Also helpful is looking at special 
cases, e. g. . zero eccentricity, constant thrust, for which analytic 
results are knov^'n. The values frr similar cases or simplified cases 
are always useful. 

Now a few words will be given on values for which built in nominals 
exist. There is nothing special about some of these nominals except 
that the constructors of the program used those values a lot. Comments 
on a few of these follow. 

IPR is a print flag that would normally only be used if there was 
trouble. It causes all trajectories to be printed (the number of stepi 
in the low thrust portion printed is equal to about IPR +1). Normally, 
the final (converged) trajectory will be printed anyway. 
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NIMAX, the number of Iterations in the N - R or modified N - R 
procedure is set to 20 and that is usually enough to get convergence. It 
can be set to zero, which will cause a printing of the trajectory determined 
by the values of the input data, bypassing uie iterator entirely 

TFMAX simply pi events integrations past that time of flight and 
can be left alone unless you expect the time of Flight to bu aear or 
greater than 190 days. 

DT2, the time step in days with a nominal of 1. Frequently, a 
different value will be needed depending on the problem. 

UEB, the upper error bound for the integrator, nominally set to 
a high value so that it is usually never reached, allowing the user to 
determine accuracy by picking the time step. This value is supplied to the 
SSP integrator and tuning it seemed difficult. 

EW, error weights supplied to the SSP integrator, nominally set 
to 1 for the five orbital elements and zero for the other variables. This 
is somewhat arbitrary, as the writer has had little experience adjusting 
these values. 

UTKM, the earth's equatorial radius. If you don't believe 
6378. 16 km, you can change it. 

3 2 

GM, the earth's gravitational constant set to 39860''. 2 km /sec , 
likewise. 

NOP, a flag, if set to 01 then the final conditions include all 
five orbital elements, specified by the input, if set to 02, then a, 
e, i are specified only. If any high thrust is included this is automatically 
set to 02. In this case, this option should not be set by the user. 

Oblateness effect is off nominally. If included, J 2 is sec to 
.0010827. \s coded, a different value for J 2 would require a recompilation 
of INPUT. 

KSTEP is a flag which indicates whether STEP, which is used 

to calculate the numerically determined sensitivity matrix in the 

iterator, is a fraction of the nominal value of the iteration parameters 

(KSTEP=0) or a fixed step size. Nominally, STEP as a fraction is 

- 6 

specified with all elements of the array set to ’0 . This was found 
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to work pretty well for low thrust only cases. (If the magnitude 
of the nominal iteration parameter is near zero, the corresponding 
STEP is considered a step size rather than as a fraction. ) When 
initial high thrust impulses are included a constant step size was 
more frequently used, especially when the iteration parameters 
were small in magnitude. Typical values were; 

10 "^, 10 "\ 10 "®, 10 '^, 10 "^ 10 '^, 10 "^, 10 "® 

(The first five being relevant to the NEP program. ) STEP (8) remains 

the fractional variation in the final time used to calculate . 

atf 

Changing these values by a couple orders of magnitude had little 
effect. 

Nominally, shadow effect is not included. 

Nominally, the sun distance affect on power is not included, i. e, , 
a 1 A. U. distance is assumed. Housekeeping power is nominally 
zero. 

Nominally, low thrust only is assumed. If initial or final high 
thrust impulses are required, the AV's must be given. For the SEP 
program, if initial high thrust is included, NODE must be set to 0 
if n is free, or to 1 if 0 is fixed. Note that if the non- thrust perturbations 
are symmetric about the equator changing 0 should have no effect 
on the trajectory, so that if Q is free, the sensitivity matrix will be 
singular. This would occur if a radiation model was used which was 
symmetric about the geographic axis and there was no shadow 
effect. IPOW is nominally set to 0 for the NEP program. This 
specifies constant power. The exponential degradation is specified 
by IPOW* 1. For the SEP program, IPOW is nominally set to 01, 
so the degradation due to radiation is included. A constant power 
option is available although porbably would not generally be used. 

If shadowing is not included, this is equivalent to a corresponding 
NEP case, but more expensive to run. 
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FLIM determines the accuracy of the actual final conditions which 

_ 0 

determine convergence. The nominal value of 10 would yield 

_4 

an error in each component of the final conditions of about 10 . 

(The "cost" which is compared to FLIM is just the sum of ihe squares 
of the errors in the final conditions in internal units, scaled so that 
typical values have an order of magnitude of zero. ) This seems 
consistent with the general accuracy of the model used. 

SGN is used only if there are initial high thrust impulses. It 
sets the sign of the adjoint to inclination. Nominally this is automatically 
set negative if the final desired inclination is less than the initial 
inclination or positive if the opposite is the case. 

Because of the functional form of the power versous fluence 
relation, to avoid having to use a very small time step (at least at 
the beginning of an integration) or else having numerical difficulties, 
the initial fluence (W(7))for the SEP input should be nonzero. If 

the user inputs 0. , then a nonzero value will be set by the code. 

• • 

This value is equal to N. T/2 where N is the initial fluence derivative 

and T is the initial orbital period (after any initial impulses). In 

order to avoid numerical difficulties, especially when initial impulses 

are included, it is useful for the user to input some nonzero value for 

fluence which overides the internal calculated value. A typical value 

14 

might be .01 (in units of 10 particles). 

At the time of this writing the experience using the final version 
of the code is limited. Few runs have been performed with the final 
impulse included. The version of the SEP code used for most runs 
contained a geographically axial symmetric radiation field which 
corresponds to modeling the geomagnetic axis as lining up with the 
geographic axis. This allows a larger lime step to be used and effectively 
averages the spatial dependence of the field over one day. Convergence 
was sometimes adversely affected by including shadowing. Also 
when initial impulses were included, convergence was more difficult 
if the initial D was free. Most runs were performed with a fixed 
initial Q. 
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As coded, when the predictor- corrector integrator is used the 
time step is forced to be an integer division of the final time and thus 
varies somewhat from one trajectory to another as the time of flight 
varies. The varying time step can cause varying numerical errors 
for neighboring trajectories, thus most runs, especially with the 
more complex SEP program have been performed with the Runga- 
Kutta integrator for which the time step was fixed. Poor numerical 
accuracy will adversely affect convergence. 
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APPENDIX A 


FLOW CHARTS 


Three flow charts are included on the following pages. The first 
is an overall flow chart showing the general flow of the code. The 
chart is indicative of either the Newton-Raphson or modified Newton- 
Raphson iterator. The second chart shows the flow of the trajectory- 
calculations, and the third shows the operations taken in calculating the 
averaged derivative which is called by the int'jgrator routine which 
extrapolates the low thrust portion of the trajectory. 



Read and write input. Set initial values. 


Run trajectory and calculate norm 
of final conditions. 


Norm< F, ? 


Calculate partial derivative matrix by 
running neighboring trajectories or by 
modifying old matrix. 


Calculate new interation parameters (X's) 
from partial derivative matrix and error 
in final conditions. 


Run trajectory. Form norm of error in f.c. 


norm5^ 
norm of last 
wjteration 


number 

^ halvings > Ny? 


Halve ^X's. 
Form new X . 


Can method 
Work? 


maybe 


Print summary. 


Print time history by » 
I reruning trajectory* 












Fio. A-?. Trajectory Flowchart 
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Fin. /i-^. Averaned Oerivative Calculation •^lov'C^’art 
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APPENDIX B 

THRUST DIRECTION ON AN ORBIT 

i 

1 

t 

There is no provision in the main deck for printing the thrust 
direction at points on an individual orbit, prior to the averaging process. i 

This print can be obtained for particular orbits, however, by using a ] 

separate main, calling, program, ORBIT, which uses a special version | 

of FCT and ETVALMP which contain print statements. The input in- f 

eludes: 

Z (I), I = 1, 10, The G equinoctial orbital elements, a, h, k, p, q, and 

their adjoints \ , X. , X, , X .X., which can be t^ken from the time 
a h k p q 

history output of the optimization program. 

A Thrust acceleration, may be set to 1. 

N One half the number of points on the orbit for which print is 
desired. 

NCONT, Flag, if 0, stop, if greater than 0 read data for another orbit. 

Z and A are in format (F25. 15) and N, NCONT in format (12). 

The output is as follows. Beginning at F (the eccentric longitude) = 

0°, at points 180° /N apart, the following is printed: 


the eccentric longitude, F, the equinoctial coordinates, XI, Y1 
(the Z component is zero) and the unit vector indicating the 
thrust direction in the equinoctial coordinate system. 
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APPENDIX C 


EXAMPLE OF A SEP RUN 


This appendix shows an example of actual output for a case 
including SEP and initial and final impulses. Only the beginning 
and the end of the iteration print and the time history print is 
included. The run utilizes modified Newton- Raphson iterator and 
a 16 point quadrature. 
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APPENDIX D 


EXAMPLE OF A NEP RUN 


This appendix shows an example of actual output for a case 
including NEP and initial high thrust. Only the beginning and the 
end of the iteration print and the time history print is included. 

This run utilized the modified Newton- Raphs on iterator, the predicto 
corrector integrator, and the 16 point quadrature. 
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APPENDIX E 


SOURCE CODE LISTINGS 


xhe source code listings for all the subprograms are given 
in this appe iix. There are five principle groupings. The first 
is used only for SEP, the second with NEP, the third is a common 
group used both with SEP and NEP, the fourth includes optional 
versions of ITER, TRAJ, and QUAD and finally the fifth group 
includes the driver program ORBIT and special versions of FCT 
and EVAMP containing print statements which are used to get 
thrust direction at points on particular orbits. 

The SEP group includes: 

INPUT 

OUTPC 

ITER (modified Newton Raphson) 

PRTN 

DCROUT 

TRAJ ^Punga-Kutta version) 

OUTP 

FUNCT 

EARTH (non- incluned magnetic axis) 

SUN 

SHADOW 

DQRTIC 

DCUBIC 

FLUX 

The NEP group includes: 

INPUT 

OUTPC 

ITER (modified Newton- Raphson) 
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The NEP group includes; 

PRTN 
DC ROUT 

TRAJ (Runga-Kutta version) 

OUTP 

FUNCT 

The common group includes: 

CONTL 
OBLATE 
QUAD (16 point) 

FCT 

EVAL?vIP 

MAINE 

START 

TIME 

SWITCH 

DTDU 

OUTHI 

I MPLS 

YF 

The option group includes: 

ITER (Newton- Raphson for SEP) 
ITER (Newton- Raphson for NEP) 
TRAJ (predict or- corrector fo’* SEP) 
TRAJ (predictor- corrector for NEP) 
QUAD (4 point) 

QUAD (8 point) 

QI'AD (32 point) 

EARTH (inclined magnetic axis) 
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I 


The thrust direction group includes 
ORBIT 

FCT (print version) 

EVALMP (print version) 
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C INt'UT/ IN(»OTS 
C 

c SEP AND Pir,H thrust. 

C I^-1S SUHPHOr,RftH IS rtlLI-n BY CONTt AKD RFAHS ANO PRIMTS 
C a;.!. !N!T5AL data as well as sets IMTIAL C'>NST4MTS. 

C The units are BASEU UN INTERNAL MU=1.0t 'NTERNAl DISTANCE 
C UNIT=1 earth radii, and external hu= 3PRN01.2 km*km»kh/ 

C SEC*SEC AND EARTH RADI1= B37B.16 KM. A CIRCULAR 
C ORBIT AT 1 EARTH RADII WOULD HAVE A PERIOD OF ? PI INTERNAL 
C TIME UNITS. 


c 

14 DIMENSIONAL WITH MASS AND 

FLUX 


c 

INPUT 



c 

LOW/HIGH 

high/low/high 


c 

INITIAL ORBIT 



c 

A (KH| 



c 

E 

SET TO ZERO 


c 

1 (OEGI 



c 

LONG. OF NODE (OEGI 

NOT USED 


c 

ARG. OF PERIGEE (OEGI 

NOT iiseo 


c 

MASS IKGl 



c 

FLUX 



c 

INITIAL guesses 


c 

LAMBDA A 

LIKE UPSILON 


c 

LAMBDA H 

like SMALL'S 

K 

c 

LAMBDA K 

LIKE SMALL'S 

J 

c 

lambda P 

scale factor 


c 

LAMBDA 0 

nopal angle 

(RAD) 

c 

LAMBDA M 



c 

LAMBDA N 



c 

final ORBIT 



c 

A 



c 

e 



c 

I 



c 

NODE (NOT USED IF N0P=2I 

NOT USED 


c 

r 

PERIGEE (NOT USED IF N0P=2) 

NOT USED 


c 

c 

TF2 (DAYS), GUESS FOR FINAL 

TIME 



C PKH IKWI, POWER 

C SPIM (SECI. SPECIFIC IMPULSE OF SEP 
C Tl JULIAN DATE AT INITIAL TIME 
C IRDFLG 
C 1 END OF INPUT 
C 2 I PR, PRINT flag 
C 3 NIHAX, MAX, NO. 1>P ITERATIONS 
C TFMAX? (DAYS), MAX, TF 

C 5 DT2 (DAYS), time STEP FOR O.E. 

C 6 UEB, UPPER ERROR BnuND FOR O.E. 

C 7 EW, ERROR WEIGHTS FUR D.E. 

C P UTKM, EOliATPSlAt earth RADIUS (KM) 

C 9 GM (KM*#3/SEC»*2) earth gray. const, 

C 10 NOP *1,5 O.E. SPEC’EIFO AT TF 
C = 2, 3 n.E. SPEC IF lED AT TF 

C 11 SETS OBLATENESS, AjJ. = l,0»270-3 
C 12 STEPIB), STEP SWE FOP NUMERICAL DIFF. 
C KSTEP = 0, STEP AS fraction IN ITER 

C =1, STEP AS constant in iter 

C 13 ISON = 0, SHADOW EEFfCT OFF 


NOMINAL 

0 

20 

190. 

1 . 

1.010 

l..l,l,li 

B37R.16 

39RB01.2 

1 

0 . 

l.D-6 

0 


1 , 0 , 


onoooolo 

ponnnnpn 

OOOOPD30 
OOOOOOAO 
00000050 
OOOOOONO 
00000070 
OOOOOORO 
00000090 
00000100 
00000110 
00000120 
00000130 
000001 AO 
00000150 
ooonoiBO 
00000170 
00000 IRO 
00000190 
00000200 
00000210 
00000220 
00000230 
000002AO 
00000250 
000002F0 
00000273 
000002RO 
00000290 
00000300 
00000310 
00000320 
00000330 
000003AO 
00000350 
00000360 
00000370 
000003BO 
00000390 
OOOOOAOO 
OOOOOAIO 
OOOOOA20 
OOOOOA30 
OOOOOA40 
OOOOOA50 
00000460 
00000470 
uOOGCAftO 
00000490 
00000500 
00000510 
00000520 
OOOOC530 
00000540 
00000550 
00000560 
00000570 
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C =1. SHAOOg tf-t-t-CT ON 

c lA isuN = 0 SUN nisi ef-tici un pnwfR off n 

C = l FFFECT IIN 

C PH (KW) huuSFkFFp (Nr, PCiwER 0. 

C 15 IHI = 1, LOk. THRUSl nULV 1 

C *2, Hlf.H/LOW 

c * 3, HiCH/Lnw/Hir.H 

C ■ 4, lOW/Hinn 

C OVll (M/S) total initial high thrust OFL V 0. 

C 0V12 (M/SI DEL V FOR FINAL IMPULSE 0. 

C NODE = Of initial LINF OF NODES FREE 
C =1, INITIAL LIFE f'F NODES FIXED 

C NODE MEANINGFUL ONLY IF IMl* 2 OR 3 

C 16 IPOW a 0, constant PUWE'T 1 

C =1, DEGRAOATIUN F^FECT 

C 17 FLIH, NORN LIMIT IN ITERATION ROUTINE l.D-6 


C IR SGN = -1.. initial lam I IS NEGATIVE 
C = ♦!., INITIAL LAM I IS POSITIVE 

C 
C 

SUBROUTINE INPUT 

C 

implicit real»R( a-h.('-s). integer (I-NI 

c 

NAMELIST /UN/UTKM,UTS.UTD.UTKG»UTKM,UTMS2 
C 

common /XMMM/ZlO( 7) . STFPIRI, ZERFIR) 

COMMON /ElEM/ZP0(7), ZPE(5I 

COMMON /INT/ITF,IPR.iniM.I0IM2»NlMAX 

COMMON /TRA/TFMA> .DT ,UER,EW( 14) 

COMMON /UNITS/UTS.UT> ,UTH,UT0tUTKM«0TR,UTKG,UTKW,UTHS2 
COMMON /T/TF,S,TC.TFMIN 
COMMON /A/AvAHU.PI 
COMMON /WF/MF(5) 

COMMON /J2/ AJ2 
COMMON /TC/NOP 
COMMON /JO/TL 

COMMON /POMER/PO.C.POW.PH, ISUN,ISON«IPOW 
COMMON /HIGH/OVIl .0VI2, IHl 
common /AC0M/AF(10I 
COMMON /F/FLIM,KS1EP 
COMMON /NOO/NODE 
COMMON /SG/SGN 
C 

DIMENSION M(7) 

C 

C INTEGER constants 
C 

I0IMal4 
I01M2-7 
I0IM3=e 
IPRaO 
ITF«3 
NIMAX«20 
NOP= 1 
ISON* 0 
ISUNe 0 


nooonsRO 
00000540 
00000600 
00000610 
00000620 
00000630 
00000640 
00000650 
00000660 
00000670 
000006RO 
00000690 
00000700 
00000710 
00000720 
00000730 
00000740 
00000750 
00000760 
00000770 
000007R0 
00000790 
OOOOOROO 
OOOOORIO 
OOOOOR20 
00000R30 
OOOOOR40 
00000R50 
OOOOOR60 
00000H70 
OOOOORBO 
OOOOOR90 
00000900 
00000910 
00000920 
00000930 
00000940 
00000950 
00000960 
00000970 
000009RO 
00000990 
00001000 
OOOOlOlO 
00001020 
00001030 
00001040 
00001050 
00001060 
nnnoiOTO 
OOOCIOBO 
00001090 
0000 11 00 
00001110 
00001120 
00001130 
00001140 
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IHI= 1 
IPOW* 1 
KSTFPr 0 
C 

C aPAL constants 
C 

AJ2= 0.00 
AMUsl.ODO 
UEB= 1.00*10 
DO 10 I=1,101M? 

EW( 1+101M?)= 0.00 
10 Ewm= 1.000 

EM(6)= O.DO 
EW( 71= O.DO 
DO 12 1= 1.10IM3 
i; sTEPtn= 1.0-6 

DT2= 1.000 
GM=3qB601.200 
UTKM= 637fl.l600 
OTR= ,P17AS3?92519q<.3?'7600 
PI- 3. 1A15926535P9793200 
TFMAX2= 190.000 
TFM1N2= 0.000 

T02=o.ono 

TL= 0.00 
PH= 0.00 
FLI»= l.D-6 
nvil= O.DO 
DVf2= O.DO 
AFtl)= 7.202 
AF(2>= -1.902 
AF(3)= -l.fi3Dl 
AF(9)= 2.0601 
AF(5)= 9.0501 
AF(6)= -9.1601 
AF17)= -2.2733603 
AF(fl)= 5.970fl7D3 
AF(9)= -9.2539203 
AF(10)= 1.199990-21 
C 

C ALL READ STATEMENTS FOLLOW 
C 

READ (5,1000) (Wn>.l= 1.I0IH2) 

READ (5,1000) (2lO( n,I=1.101M2) 

READ (5,1000) (WF( 1) . !* 1,5) 

Sr.Nr WF(3)-W(3) 

IF ( SON. NE. O.DO) SGN= SGN/DABS( SON) 

READ (5.1001) TF2 
READ (5.1001) PKH 
READ (5,1001) SP)M 
BEAD (5,1001) TL 

C TL MUST PE BETWEEN APCllT A.O- 1950 AND 2000 

IF (lTL.LT.2.933n6).UF.(TL.GT.2.952D6)) DO TO 230 
20 read (5,1002) IRIFlG 

IF ( ! IROFLG.DT.IM .nk.nBDFLr-.LT.l) ) GO TO 200 
25 GO TO ( 150, 32, 33. 39. 35, 36. 37, 3B, 39, 90, 91, 92, 93, 99, 95, 96, 97, 9P» , 

1 IRDFLG 


00001 150 
00001190 
ononi 1 70 
ononllpo 
00001190 
0000 1200 
00001210 
00001220 
00001230 
00001290 
00001250 
000C1260 
00001270 
000C12P0 
00001290 
00001300 
00001310 
00001320 
00001330 
00001390 
00001350 
000P1360 
00001370 
000013PO 
00001390 
00001900 
U0001910 
00001920 
00001930 
00001990 
00001950 
00001960 
00001970 
00001980 
00001490 
00001500 
00001510 
00001520 
00001530 
00001540 
00001550 
00001560 
00001570 
00001580 
00C01590 
OO0C16OO 
00001610 
00001620 
00001630 
COOC1640 
00001650 
00001660 
00001670 
00001680 
00001690 
0C001700 
00001710 




55 



c 

C THFS6 VALU6S ARF hFAD n';|V IF INnir.AIFn PY IRIFtr, 

C 

3? READ <5, ion?) IRR 

IF < iPB.iT.o) (,n III ?in 
GO fO ?0 

33 READ IS, 100?) NIPAX 

IF <IMPAX.LT.O).OR.IMMAX.GT.50n GO TO 220 
GO TO 20 

3A READ (5,1001) TFPAX2 

IF ( I TFMAX2.LT.0.I>0) .OR. (TFMAX2.GT.l.n3n GO TO ?20 
GO TO 20 

3‘- READ (5,1001) m? 

IF ( (DT2.lt. 0.00) .OH. (DT2.GT. 1.03) ) GO TO 220 
GO TO 20 

3f READ (5,1001 ) UEP 
GO TO 20 

3'. REAP (5,1003) EM 
GO TO 20 

3E READ (5,1001) OTKH 
GO TO 20 

3t READ (5,1001) GM 
GO TO 20 

READ (5,1002) NOR 

IF ( (NOP.LT.1 ).0R.(N0P.GT.2) ) GO TO 220 
GO TO 20 

'.I AJ2= 1.0fi27D-3 
GO TO 20 

S2 READ (5,1001) (STEP(I),1=1,101H3) 

READ (5,1002) KSTEP 

IF ( (KSTEP. LT.O) .OR. IKSTEP.GT.l ) ) GO TO 220 
GO TO 20 

43 READ (5,1002) ISON 

IF ((ISON. LT.O). OR. ( ISON. GT.D) GO TO 220 
GO TO 20 

44 READ (5,1002) ISON 

IF (( ISON. LT.O). OR. ( ISON. GT.l) ) GO TO 220 
READ (5,1001) PM 
GO TO 20 

45 READ (5,1002) IHI 

IF ( ( IHI.LT.I ).0R.( IHI.GT.4) ) GO TO 220 
READ (5,1001) DVI1.DVI2 
IF (IHI.lT.3) DV1?= 0.00 

IF ((IHI.E0.1).0R.(IM).F0.4)) nvil» 0.00 
NOP- 2 

READ (5,1002) NODE 

IF ( (NODE. LT.O). OR. (NODE. GT.l) ) GO TO 220 
GO TO 20 

46 READ (5,1002) IPOW 

IF (( IPOW. LT.O). OR. ( IPOW. GT.l)) GO TO 220 
GO TO 20 

47 READ (5,1003) FLIM 

IF (FLIM. LT.O. DO) GO TO 220 
60 TO 20 

4B READ (5,1001) SGN 

IF (OABS(SGN).NE. 1.1)0) GO TO 220 
GO TO 20 


00001720 
00001 730 
00001740 
00001750 
00001760 
00001770 
00001 7 RO 
00001790 
OOOOIROO 
OOOOIRIO 
0000 IB 20 
00001 B30 
00001 R40 
00001B50 
0000 1R60 
00001 B70 
OOOOIBBO 
00001 R90 
00001900 
00001910 
000C1920 
00001930 
00001940 
00001950 
00001960 
00001970 
00001980 
00001990 
00002000 
00002010 
00002020 
00002030 
00002040 
00002050 
00002060 
00002070 
00002080 
00002090 
OQ0O'’OO 
0000 . 10 
00002120 
00002130 
00002140 
00002150 
00002160 
00002170 
00002180 
00002190 
00002200 
00002210 
00002220 
00002230 
00002240 
0O002250 
00C02260 
00002270 
00002280 
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c 



rnoo22NO 

c 



nonn?30() 

c 



onnn?3io 

c 



riono23?r> 

c 



00002330 

c 

TIME 

VALUES ARE CHANt^EH ERON' DAYS TO OTHER UNITS 

00002340 

c 



00002350 

150 

IITS= DSORT(UTKM**>/r,w) 

00002360 



UTMsUTS/^O.DO 

00002370 



UTH=UTS/3600.D0 

000023R0 



UTD=UTH/24.D0 

00002300 



T0= T02/UT0 

00002400 



TF= TF2/UTD 

00002410 



TFM1N= TFMIN2/UTP 

00002420 



TFMAX= TFMAX2/UT0 

00002430 



DTx DT2/UT0 

00002440 



T01= TO»UTS 

00002450 



TF1= TF#UTS 

00002460 



TFMIni= TFMIN»UTS 

00002470 



TFMAX1= T'-MAX*UTS 

00002460 



0T1= DT»UTS 

00002490 

c 



OC002500 



AF(10)= AF(101*UTS 

00002510 

c 



00002520 

c 

'^ORE 

CONVERSIONS 

00002530 

c 



00002540 



UTMS2= UTKM«1.D3/(UTS**2) 

00002550 



UTKG= 1.03 

00002560 



UTKW= UTKG*UTMS2«IITKM/UTS 

00002570 

c 



OO0O25RO 

c 



00002590 

c 



00002600 



CALL EARTH 

00002610 

c 



00002620 

c 

THE 

PRINTING OF ALL INITIAL VALUES FOLLOWS 

00002630 

c 



00002640 



WRITE (6,2000) 

00002650 



WRITE (6,2001) 

00002660 



WRITE (6,2030) 

00002670 



WRITE (6,2033) 

00002680 



WRITE (6,203A) 

00002690 



WRITE (6,2035) NOP 

00002700 



IF (ISON.EO.l) WRITE (6,2042) 

J0002710 



WRITE (6,2045) DVI1.I1VI2 

00002720 



WRITE (6,2002) 

00002730 



WRITE (6,2003) 

00002740 



IF ( ( IHI.EO. n.OR. ( IHI.EO.4) ) GO TO 15fl 

00002750 

c 


w(i) IS SEMimajor axis 

00002760 

c 


W(2) IS ECC. SET TO 0 

00002770 

c 


W(3) IS INCLINATION 

00002780 

c 


W(4| IS OMEGA IF NOOE= 1 

00002790 

c 


ZLO should be Y1 (liP),Y2 (XK),YS (XJ),C,(LAM) OMEGA, LAM M, 

LAM N 00002800 

c 



00002810 



W(2)= 0.00 

00002820 



I I I = 3+N0DE 

00002830 



WRITE (6,2004) (W(I),I= l.III) 

00002840 



ZP0( 1)= wm/UTKM 

00002850 


r 


I 


» 


i 
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■■I 


■■ 1 


I 

f 




7PO(2»= WOl^DTP 

00002860 


WR I TF ( 6, POAhl 2FO( 1 1 

00002870 


7PO(6)= W(6)/lIlKr. 

00002880 


IF (Nnne.Eo.n ?Fn(^)= w(^i«nTR 

000028RO 


GO TO 162 

00002900 

c 


00002910 

158 

WRITE (6,2006) (WM).]sl,5) 

00002920 

C 


00002930 

C 1 

CHANGE FROM classical O.F. TO EQUINOCTIAL O.E. 

0n02940 


DO 160 1*3,5 

00002950 

160 

W( n= WU )*OTR 

00002960 


7P0( 1 )= W( 1 )/'JTKM 

00002970 


ZP0(2)* W(2)*0SIN(W(5)+W(6n 

00002980 


’P0(31= W(2)*DC0S(W(5)+W(6) ) 

00002990 


ZP0(6)= 0TAN(H(3) /?.f)r)01«0SlN(H(4) ) 

00003000 


ZP0(5)= OTAN(W( 3)/2.0r'01»OCOStWt6) ) 

00003010 

C 


00003020 


ZP0(6)= W(61/UTKG 

00003030 

C 


00003040 

C 


00003050 


WRITE (6,2005) 

00003060 


WRITE ( 6,2004) ( 7P0( 1 1 , 1 = 1 ,5) 

00003070 

16.» 

DVll* (OVl 1/(UTMS?»M1S) )SDS0RT(ZP0(1)/AMU) 

00003080 


0VI2* DV12/(UTMS2=»urS) 

00003090 


ZP0(7)= W(7) 

00003100 

C 


00003110 


WRITE (6,2038) W(6) 

00003120 


IF (IPOW.EO.O) WRITF (6,2049) 

0p003130 


WRITE (6,2039) PKW 

00003140 


WRITE (6,2043) PH 

00003150 


WRITE (6,2040) W(7) 

00003160 

C 


00003170 


P0= PKW/UTKW 

00003180 


PH* PH/UTKW 

OC003190 


IF (ISUN.NE.O) WRITE (6,2044) 

00003200 

C 


00003210 

C WUTE FINAL CONDITIONS. CHANGE TO EOUINOCTIAL FINAL COND, 

00003220 

C 


00003230 


WRITE (6,2006) 

00003240 


ZPF( 1 )= WF( D/UTKM 

00003250 


GO TO (165,170), NOP 

00003260 

C 


00003270 

165 

WRITE (6,2003) 

00003280 


WRITE (6,2004) (WF(I),I» 1,5) 

00003290 


DO 166 1*3,5 

00003300 

166 

WF( I )= WF( I)*DTR 

00003310 


ZPF(2)= WF(2)*0S1N(WF(5)+WF(4)) 

00003320 


ZPF(3)= WF(2)*CC0S(wF(5)*WF(4)) 

00003330 


ZPF(4)= DTAN(WF( )/2.oP0)«0SIN(WF(4» ) 

00003340 


ZPF(5)* DTAN(WF(3)/2.000)»DC0S(WF(4) ) 

00003350 


DO 167 1*3,5 

00003360 

167 

WF( 1 )*WF( I )/OTR 

00003370 


WRITE (6,2005) 

00003380 


WRITE (6,2004) (ZPFf ), 1 = 1,5) 

00003390 


GO TO 190 

00003400 

C 


00003410 

170 

ZPF(2)= WF(2) 

00003420 
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o o 



7PF(3) 

= OAPSt OT AM WM - 1 »mR/?. 

DO) ) 


ZPF(4) 

= 0.00 




7PPI5) 

= r.uo 




WRITE 

(6,2031 ) 




WRITE 

( 6,2004) 

(WF( I ),I:),3) 



WR I TE 

(6,2032) 




WRITE 

( 6,2004) 

( 7MF( 1 ), I«l,3) 


190 

WRITE 

(6,2007) 



196 

WRITE 

(6,2011) 

7L0 



IP t(IHl.GT.l). 

AN. . ( IHI .LT.4) ) 

WRITE 


WRITE 

( 6, 2008) 




WRITE 

(6,2009) 

TFZ,TF1 ,TF 



C= SPIM/UTS 




CC= C#UTMS2*UTS 



WRITE 

( 6,2012) 

SPIM.CC,C 



A= UTMS2«2.DO*IPO-P*-)/(C»2POt6 

) ) 


WRITE 

( 6,2041 ) 

A 



WRITE 

(6,2037) 

Tl. 



WRITE 

(6,2036) 

AJ2 



WRITE 

(6,2013) 




WRITE 

( 5,2009) 

T()2,T01 ,T0 



WRITE 

(6,2014) 




WRITE 

(6,2009) 

TFMIN2,TFMIN1,TFMIN 


WRITE 

(6,2015) 




WRITE 

( 6,2009) 

TFmaX2,TFMAX1,TFMAX 


WRITE 

(6,2010) 

ksiep 



WRITE 

(6,20111 

STEP 



WRITE 

(6,2016) 




WRITE 

( 6,2009) 

0T2,DTl,nT 



WRITE 

(6,2017) 

UEB 



WRITE 

(6,2018) 




WRITE 

(6,2019) 

EW 



WRITE 

(6,2020) 

lOlM 



WRITE 

(6,2022) 

NIMAX 



WRITE 

( 6,2048) 

flim 



WRITE 

(6,20261 

UTKM 



WRITE 

(6,2027) 

GM 



WRITE 

RETURN 

(6, UN) 



200 

WRITE 

STOP 

(6,2023) 

iroflg 


210 

WRITE 

STOP 

(6,2024) 

IPR 


220 

WRITE 

STOP 

(6,2025) 

Irdflg 


230 

WRITE 

STOP 

(6,2037) 

tl 


1000 

FORMAT 

(F25.15I 



1001 

format 

(F25.15) 



1002 

format 

(12) 



1003 

format 

( 706.11 



1 004 

format 

(FIB. 11) 



2000 

FORMAT 

( 1H1,22X 

,75H optimal TRAJECTOR 


ING USING SEP AND hJOh ThRUST) 


0000^430 

onno'^AAO 

onno3i.so 

noori3A^o 

00003470 

000034 RO 

00003490 

00003500 

00003540 

00003550 

00003550 

6,?050)SGN 00003570 

000035SO 

00003590 

00003500 

00003510 

00003520 

00003630 

00003540 

00003550 

00003550 

00003570 

000036RO 

00003590 

00003700 

00003710 

00003720 

00003730 

000C3740 

00003750 

00003750 

00003770 

00003780 

00003790 

00003800 

00003810 

00003820 

00003830 

00003840 

00003850 

00003860 

00003870 

00003880 

00003890 

00003900 

00003910 

C0003920 

00003930 

00003940 

00003950 

00003960 

00003970 

00003980 

00003990 

00004000 

PROGRAM FOR SATELLITE R A I St 00004010 

00004020 
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?oni 

?002 

?003 

2on<. 

2005 

2006 
2007 
200R 

2009 

1 

2010 
2011 
2012 

1 

2013 

2016 

2015 

2016 
2017 
201R 

2019 

2020 
2022 
2023 
2026 

2025 

2026 
2027 

2030 
2033 

2036 

2035 

2031 

2032 

1 

2037 

2036 
203P 
2039 
2060 
2061 
2062 
2063 
2066 
2065 


.lOX.lRHLON ASC 


FORMAT (lH0t53X,l>H MINIMUM TIMF) 

FORMAT (36H0 THf INllIAL ORRIlAl FLFMFNTS AHf) 
format (1HO,10X,6hA I km ) . 19X . 1HE,?0X,7H1 (Ofr,) 

( OK, ). 6x, 1 SHAKO rfhio (oer, )» 

FORMAT ( 1P5023.16) 

FORMAT (1H0,6X.13HA ! F AR T H R AO I , 16X , 1 MH, ?2X , 1 HK , 22X , 1 HR , 22X , IHC ) 
FORMAT (60H0 THE ObSlRFO FINAL ORBITAL ELEMENTS ARE! 

format (32H0 initial f-uesseo rarametehs arei 

FORMAT (21H0 FINAL TIME ESTIMATE! 

FORMAT (IH , lOX, I R022. 15,7M DAYS = . 1 P022. 1 5 , 1 OH SECONDS =,1PD22. 


,6H UNITS) 
FORMAT (SOHO 
FORMAT 

format 

6H M/S 
FORMAT 
FORMAT 


FOR NUMERICAL DIFFERENTIATION, KSTEP =,I2) 


STEP SIZE 
( 1P5023.16I 

(12H0 SPEC IMP =. 1PD23.16,15H SEC, EXH VEL =,1P023.16, 
=,1PD23.16. lOH r.R./T.U.I 
(17H0 initial TIME IS) 

TFMIN IS) 

TFMAX IS) 

TIME STtP FOR INTEGRATION) 

UPPER rRPOR BOUND ON INTEGRATION =,1PD20.10) 

ERROR WrlGHTS FOR INTEGRATION ARE) 

(1P160R.1 ) 

( 13H0 OlVENSUiN =. 15) 

MAXIMUM mumper of iteration =,15) 

IROFIG should be between 1 AND 16, IT IS =,15) 

IPR should PE < 0, IT IS =,I5) 

BAD input data, IROFLG = ,13) 

1 EARTH RAD!US=,F25.12,3H KM) 

MU (GM) =.F25.10,13H KMa»3/SEC«*2) 
final condition OPTIONS) 

1. ALL 5 FINAL ORBITAL ELEMENTS SPECIFIED) 

2. A.E.I SPECIFIED, LON ASC NODE AND ARG PER FREE) 
FOR THIS Run, option a, 16) 

(1H0,10X,6ma ( KM) , 19X, 1HF,20X,7HI (DEG)) 

(1H0,6X,13HA (EARTH R AO ) ,9X , 1 5HS0R T ( H**2+K** 2 ) ,RX , 
l5HS0RT(P**2+0*»2) ) 
format ( 32HO JULIAN DATF AT 
(6H0 J2 =,IP015.7) 

(21H0 initial mass (<G) =, FIB. 11) 

initial power IKW) =, 1P1323.16) 

INI I lAL flux = ,1PD23.16) 

INITIAL ACC (I A.U.) =, 1P023. 15.7H M/S**2) 

SHADOW i-FFlCT INCLUDED) 

HOUSFKRF PING POWEP (KW) =,1PD23.16) 

SUN distance effect on power INCLUDED) 


FORMAT 

FORMAT 

format 

format 

FORMAT 

format 

format 

FORMAT 

format 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

format 

FORMAT 

FORMAT 

format 

FORMAT 


( lOHO 
( lOHO 
( 27H0 
( 36H0 
( 35H0 


( 31H0 
( 66H0 
(2RH0 
( 27H0 
t 17H0 
(UNO 
(25HO 
(63H 
(51H 
( 26H 


INITIAL TIME IS, F20.B) 


FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 


(22HO 
( 17H0 
( 26H0 
( 26H0 
( 27hO 
( 39HO 
(61H0 


1 

2066 
C2067 
C 1 
206B 
2069 
2050 


TOTAL DFLV FOR INITIAL IMPULSES (M/S) 
21HFINAL IMPULS- (M/S) =,F20.12) 
format (27H0 INllIAL A (EARTH RADII) =, 1PD25.16) 
FORMAT ( 79H0 initial GuFSS FOR IMPULSE PARAMETERS, 
E, MASS AND flux COSIATE) 

FORMAT (23HO NORM LIMIT IN ITER = ,1P012.5) 

FORMAT (22HO NO POW^k DEGRADATION) 

FORMAT (30hO SIGN OF INITIAL LAMBDA I IS ,F6.1) 

END 


F20.12.5X, 


S.F., LONG 


00006030 
00006060 
NODEnoonAOso 
00006060 
00006070 
000060R0 
00006090 
00006100 
00006110 
1500006120 
00006130 
00006160 
00006160 
00006160 
00006) 70 
000061BO 
00006190 
00006200 
00006210 
00006220 
00006230 
00006260 
00006250 
00006260 
00006270 
000062RO 
00006290 
00006300 
00006310 
00006320 
00006330 
00006360 
00006350 
00006360 
00006370 
00006380 
00006390 
00006600 
00006610 
00006620 
00006630 
00006660 
00006650 
00006660 
00006670 
C00066R0 
00006690 
00006500 
NDD00006510 
00006570 
00006530 
00006560 
00006550 
00006560 
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r rniTf'C/duTPCS 

r this SURPROGHftM WMITPS ImR VALUES EOS ThE FlNAl fCNVEBr-Efl 
C TBAJfcCTORV. IT IS CAtiH) HV THE VAIN PROr.PAM CONTI. 

C TO HE USED WITH H OIP. ;EwE. 

C I'. DIMENSIONAL WITH MASS AND FLUX 
C 
C 
C 

SUBROUTINE OUTPC 
C 

implicit real*R( A-H. n-$ ) , iatecer ii-ni 
c 

COMMON /XMMM/ZlOI 7),STEPIR),ZERF(B) 
common /Z/?F( 1A) .UZ( IA) 

COMMON /T/TE,S,TC,TF'- IN 

COMMON /UNITS/UTS .111 M,UTH,UTO,UTKM,DTR,UTKr,,UTKW,UTMS? 

COMMON /ELEM/ZP0( 7) .ZPFISI 

COMMON /WF/WF(5l 

COMMON /A/A, AMU, PI 

COMMON /TC/NOP 

COMMON / POWER / PO , C , POW , PH , I SUN , I SON , I PQW 
C 

DIMENSION DEL ZF( S ) ,U|-LWF( SI ,WFC(5 I 
C 

wFci n* ZF( n*uTKM 
wFC(2)= n.ono 

DUMMY* ZF(2)**? ♦ ZF(3)»*2 
IF IOUMMY,r-T.1.00-AO) WFC I 2 ) =DSORT ( DUMMY 1 
WFCI3I* O.ODO 
DUMMY* ZFIA)»»2 + ZMS)»*2 

IF (DUMMY. GT.l.Oli-AO) WFCI3I* 2 .000«DAT AN! DSORT ( DUMMY ) I /DTR 
WFC(AI=O.DO 

IF ( (OAPS( ZF(41 ) .r.T. I .D-RI .AV|D.(DABS( ZFI51) .GT.l.D-Rn 
1 WFC(A)= DATAN2( ZF(*),ZF(5n/OTR 
WFCI51* O.DO 

IF ( tOABSt ZFt 2) ) .GT. 1 . D-8 ) . A MO. ( DABS ( Z F ( 3 ) ) .GT. 1.0-B) ) 

1 WFC(5)=0ATAN2(ZFI2),ZF(3))/DTR 
WFC(5)=WFC(5)-WFC(A) 

DO 10 1=1,5 

DELWFI 1 )= WFC( I I - WFI 1) 

10 DELZFI 11= ZFt 1 ) - ZPFt 1 ) 

TF2« TF=UTD 
RMASS= ZF(61/ZP0(6) 

AMASS* ZFt6)*UTKG 
RPOW= POW/PO 
AKWPOWs POW*UTKW 
TF1= TF»UTS 

DELV* CPDLOGIZPOIGl/ZFIM )*UTKM/UTS 
C 

WRITE (6,30001 
WRITE (6,30011 
WRITE (6,3002) WFC 
WRITE (6,3003) 

WRITE (6,3002) ( 7F( I ) , 1 = 1,5) 

WRITE (6,300A) 

WRITE (6,3001) 


onnoonio 

00000020 

00000030 

OOOOOOAO 

00000050 

00000060 

00000070 

OOOOOOBO 

00000090 

00000100 

00000110 

00000120 

00000130 

00000140 

00000150 

00000160 

00000170 

00000180 

00000190 

00000200 

00000210 

00000220 

00000230 

00000240 

00000250 

00000260 

00000270 

00000280 

00000290 

00000300 

00000310 

00000320 

00000330 

00000390 

00000350 

00000360 

00000370 

00000380 

00000390 

00000400 

00000410 

00000420 

00000430 

00000440 

00000450 

00000460 

00000470 

ooono4Po 

00000490 

00000500 

00000510 

00000520 

00000530 

0000054C 

00000550 

00000560 

00000570 


if 

j , 


1 



61 


I 



1 


IF (NOP.FO.ll WRITF (8.^00?) DFLWF 
IF (NnP.EO.?) WRITE tE,M)02) t OF LW= ( I) . 1 • 1 . 3 ) 
r,0 TO 120, 30), MOP 

WRITE 16,3003) 

WRITE 16,3002) 0FL7F 
GO TO 100 

DELZF12)= DS0RT17F12)**2 + 2F13)«'»2) -ZPF12) 
DELZF13)= nS0RT17Fl'.)»*2 + ZF15)«*2) -ZPF13) 

WRITE 16,3011) 

WRITE 16,3002) I OF L 7 F I I ) , I » 1 , 3 ) 

WRITE 16,3006) 

WRITE 16,3002) ZLO 
WRITE 16,3008) 

WRITE 16,3009) TF?,TF1,TF 
WRITE 16,3012) 7F17) 

WRITE 16,3013) AMASS, RMfiSS 
WRITE 16,3019) AKWPITW,RP0W 
WRITE 16,3010) DELV 
RETURN 

FORMAT 1 35H0 ACTUAL FINAL ORBITAL ELEMENTS ARE) 


OOOOOSBO 

00000590 

00000600 

00000610 

00000620 

00000630 

00000690 

00000650 

00000660 

OC000670 

00000680 

00000690 

00000700 

00000710 

00000720 

00000730 

00000790 

00000750 

00800760 

00000770 

00000780 

00000790 

00000800 


FORMAT I IHO, lOX ,6-A I KM ) , 1 8X , IHE , 20X , 7 h 1 I DEG ) , 1 OX , 1 8HL0N ASC NOOEOOOOORIO 


300? 

3003 

3009 

C3005 

C 

3006 

3008 

3009 


1 I0EG),6X,15HARG PERIG IDEG)) 00000820 

FORMAT I1P5D23.15) 00000830 

FORMAT 11H0,5X,1’HA I F AR TH R AD ) » 1 6X , 1 WH , ? ?X , 1 HK , ?2X , IMP , ?2X , 1 HO ) OOOOJ890 
FORMAT I51H0 THE ERROR IN THE FINAL O.E. IS 1 ACTUAL - DESIRED)) 00000850 

FORMAT (60H0 CLASSICAL O.E. MAY HAVE DISCREPANCY OF MULTIPLES OF 900000860 

10 DEG) 00000870 

FORMAT (96‘0 THE CONVERGED INITIAL GUESSED PARAMETERS ARE) 00000880 

FORMAT (29H0 THE MINIMIZED FINAL TIME IS) 00000890 

FORMAT (IH ,10X,1P022.15,7H DAYS »,D22.15,10M SECONDS 1PD22 . 15 .600000900 


00000820 

00000830 

00000890 

00000850 


00000870 
RE) 00000880 

00000890 
,1PD22. 15. 600000900 


IH UNITS) 

) FORMAT (18H0 LOW THRUST DEL''=, 1PD25. 19.7H KM/SEC) 

L FORMAT IIHO,5X,13HA lEARTH SAD ) ,9X , 15HS0RT1 H**2+K**2 ) , 8X , 
1 15HS0RTlP**2+0»*2) ) 

> FORMAT I39H0 EQUIVALENT PAR'ICLES 1*1.0-19) =,1P022.15) 


00000910 

00000920 

00000930 

00000990 

00000950 


) FORMAT ( 19H0 FINAL MASS = , F . 15 , 3 IH KG, FRACTION OF INITIAL MASS 00000960 
1=,F22.15) 00000970 

V FORMAT 1 15H0 FINAL POWER = , F 22 . 15 , 32H KW , FRACTION OF INITIAL POWE000009RO 
IR »,F22.15) 00000990 

END 00001000 
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C nt^R MODNRS 

C MUDNB/MOONRS MOMtHMIi N-k IlERaTDR 

C 

C 

C HXH veRSION 

c 

SUBKOUTIME ITER(K(UIM1 ,N1 ,EUNCT,PRTNI 
C 

implicit REAL*B(/>-H.U-$I 


X VALUES OE the INHFPENnENT V AR I ABL 6 S ( J N I T I At , CliRB ENT , F I N AL ) 
XS STEP SIZE TO PERiliRB X:S TO COMPUTE PARTIAL OERIVATIVES 
Y VALUES OF The OEP'-Ndt-NT ' AH ; ABLE S ( CURRENT , F I NAL I 
COMMON/XMMM/ X ( 7 ).xS(M),Y(fi) 

COMMON /int/itf,ihr. I dim, IDIM?,MAXN 0 I 

COMMOT 4 /T/TF,S,T 0 .TFMIN 
COMMON /DY/ OYDT(H) 

COMMON /F/Fl IM,KS 1 EP 
C 

DIMENSION YNOMt fi) ,XN( 7 ) ,P( B,B| tCOEFI B) .DYDTNI fl ) 

N «7 

Mi?B 

INORMelTF 

IB=l 

ICONS=l 

ISW.O 

Nl»l 

K 0 UNT «0 

CALL FUNCT 

ITF.3 

KOUNT=KOUNT+l 
F 0 = 0.00 
DO 15 I«l.M 
15 FO»FO*Y(n**2 

9 00 16 1 * 1 , N 
DYDTNI i). DYDTI 1 ) 

XNI I l*X( I I 

16 YNOMin.VI I) 

YNOMIM). YIM) 

TFN»TF 

OYDTNIM)* DYDTIM) 

10 CALL PRTNIKOUNT.NI ) 

WR ITEI 6 , 101 1 )F 0 
IFIFO.LE.FLIMIGO to 90 

IF (NI.GT.MAXNOI) go to 80 
IF| ISW.NE.OIGO TO 27 
C COMPUTE NUMERICAL PARTIAL DERIVATIVES 
on 17 I»l,M 
17 PI I,M)= DYDTI I I 
WRITE 16,1013) 

DO 25 J «1 N 
TEMP.XIJI 

STEP,XSIJ)*DABSIXIJ) ) 

IF I IDABSI XIJ)).ll.l.n- 10 ).OR.USTEP,E 0 . 11 ISTEP»XSIJ) 

C IF IDABSI XIJ) 1 .LI . l.D- 10 . WRITE I 6 , 101 A) 


oononni 0 
00000020 
00000030 
OOOOOORO 
00000050 
00000060 
00000070 
OOOOOOBO 
00000090 
'■3000100 

00000 no 

DP00000120 

SP00000130 

DP00000140 

00000150 

00000160 

00000170 

OOOuOlBO 

00000190 

00000200 

00000210 

00000220 

00000230 

00000260 

00000250 

00000260 

00000270 

00000280 

00000290 

00000300 

00000310 

00000320 

00000330 

00000360 

00000350 

00000360 

00000370 

O00P0380 

00000390 

00000600 

00000610 

00000620 

00000630 

00000660 

00000650 

00000660 

0000D670 

000006BO 

00000690 

00000500 

00000510 

00000520 

00000530 

00000560 

00000550 

00000560 


63 




X( J)*X1JI*STEP 

nnnonsTO 


CALL MJNCT 

ODOOnSRO 


WP ITE ( 4, in00)X( J ) 

onoonsRO 


W« I TF ( 4, 1001 1 ( Yt n , U 1 ,M) 

00000400 


DO 20 1=1. M 

00000410 

?0 

P( I , J )* i Y( I )-YNOM( 1 1) /Si EP 

00000420 

2b 

X( J («TEMP 

00000630 


Kl)UN7»K0UNT' 

00000440 

27 

WR1TE(4,1002) 

00000650 


DC 30 I«1.M 

00000660 


WR1TE(4,10'>1)(P( I,J!,J«1.M) 

00000670 

30 

CONTINUE 

00000680 


DO 35 1=1, M 

00000690 

ib 

COEF( 1 »=-YNnM( I ) 

00000700 


CALL DCRDUT ( P , COEF . "•-T ,0.D0,M, 1 , I NO) 

00000710 


IF( IND.NE.OICO TO 85 

00000720 


WRITE (4,1015) DET 

00000730 


DO 40 1= 1,M 

00000740 

40 

IF ( DABS(COFF(I ) ) .LT. 1 ,n-10) COEFi »= O.Ot 

00000750 

000''0760 


IF (DABS) XNt 1 ) ) .M . 1 .02) 00 TO 47 

00000770 


RATS= 1.00 

00000780 


DO 45 1* 1,5 

00000790 


RAT= DABS) COEF ( ) ) ) /( . PDD*D4BS ( XN ) 1 ! )+.100) 

00000800 


IF (RAT. OT. RATS) RATS= RAT 

00000810 

45 

CONTINUE 

00000820 


DO 46 1« 1,8 

00000830 

44 

COEF) I )» COEF) 1 )/RATS 

00000840 


WRITE (6,1016) RATS 

00000850 

00CJ086O 

47 

WRITE(6,1003))COEF( I ),1=1,N) 

00000870 


SN= COEF(M) 

00000880 


WRITE (6,1012) SN 

00000890 


DO 50 J»1,N 

00000900 

30 

X(J)=XN( J)+CORF( J) 

00000910 


TF»TFNi-SN 

00000920 


1HALV»0 

00000930 

51 

IF (INORM.EO.l) 1TF=1 

00000940 


CALL FUNCT 

00000950 


ITF«3 

00000960 


K0UNT=K0UNT*1 

00000970 


F1=0.00 

00000980 


DO 52 I-1,M 

000009DO 

52 

F)=F1*V( I )**2 

00001000 


WRITE(6,1010)F1 

OOOOlOlO 


IF(F1.LT.F0)G0 TO 55 

00001020 


WRITE)6,1008) 

0000103: 


IF( IHALV.E0.6)G0 to 95 

00001040 


1HALV»1HALV*1 

00001050 


DO 53 J*1,N 

OOOJlOcO 


COEF) J)«COEF( J)/2.no 

00001070 


wr1TE(6,1000)COEF( J) 

00001080 

S3 

X( J ) = XN( J)+COEF( J ) 

00001090 


SN-SN/2.0D0 

00001100 


WRITE (6,1012) SN 

00001110 


TF»TFN*SN 

00001120 


GO TO 51 

00001130 


64 



56 

IFINI-maxNOI )70. /O.kO 

00001190 

70 

NI=N1 + 1 

0000 1 1 50 


ICONSrM 

00001 160 


F0=F1 

000011 70 


So9i)*io.no 

oonni iRO 


DO 76 . 1 = 1 , M 

oono 1190 

7f> 

SoMDX = COEFt J )»*2 + <;iJMr)X 

00001200 


DO 77 1 = 1, H 

00001210 


on 77 J=1,M 

000O1220 


P(I,J)=Pt1,J) + (VI 1 )»r,nFF( J I )/SOMDX 

00001230 

77 

CONTINUE 

00001290 


1SW=1 

00001250 


on TO 9 

00001260 

SO 

Nl=9999 

00001270 


WRITE(6,100o» 

00001 2B0 


BETURN 

00001290 

S5 

NI =9999 

00001 300 


WR1TE(6,1007) 

00001310 


RETURN 

00001220 

>70 

WR1TE(6,1005)F0 

00001330 


RETURN 

00001390 

95 

iFtNi.Eo.i.oR.is.Eo.io.dR.icnNS.NE.Nnr.n in loo 

00001350 


iCONS=lCONS+l 

00001360 


1R=I8+1 

00001370 


on 96 J= 1,N 

00001290 


CYDT(J)= OvnTNtJ) 

00001390 


Xt J »= XN(J) 

00001900 

9', 

YtJ)= YNOMIJI 

00001910 


Y(M)= YNDMIM) 

00001920 


dydt(mi=oydtn(M) 

00001930 


TF= TFN 

00001990 


1SM»0 

00001950 


WBlTEt6,1009) 

00001960 


r,n TO 10 

00001970 

too 

NI=9999 

000019R0 


WRITE16, 10091 

00001990 


RETURN 

COOO. 500 

l’)00 

FnRMaTt/lX,lP023.15l 

0O0O151O 

1 )01 

FORMAT! 1X,1P5023. 15) 

00001520 

too? 

FnoMAT(2lH0PARTlAl I'l-RlV MATRIX) 

00001530 

1003 

FORMAT! llHOnELX: 5 ARE/ 1 IX, 1P023. 15) ) 

00001590 

1009 

format ! 35H0F0RM NEW PARTIAL DERIVATIVE MATRIX) 

00001550 

1)05 

FORMAT! 9H0FC=, 1PD22. 15, 2 3>-CASE CONVER DEO. . . FERT If, ) 

00001560 

1006 

FnfiMATI3SH0EXCFE! EO ‘AX'MOM NUMBER OF ITERATIONS) 

00001570 

1007 

FORMAT! I6H0MATR IX SINf-ULAtv) 

000015R0 

inos 

FORMAT! 1 IHODELX; S ARF) 

00001590 

1009 

FORMAT! 19H0METH0O CANEOi WORK) 

00001600 

1010 

format ! 9H0F 1=, 1PD23. 15 ) 

00001610 

1011 

FORMAT!9hOFO=,1PD23. 15) 

00001620 

1012 

format ! lOHO DEL 'F =,1P023.15) 

00001630 

1013 

format !90H0 X» 1 • 'XI 1) FOLLOWED SY CORRE . POND I NG Y) 

00001690 

1019 

format 1 29H0 X . SO DX!l)=XStl)) 

00001650 

1015 

format I15H0 Xi inenT =,1PD23.15) 

00001660 

1016 

format (RHO rats r.)P023.15) 

00001670 


END 

000016SO 


on on on 


1 


PRTN/PHTNS 

THIS PMor.PAM IS CAiinn wv ihp it^patpr 
14 dimensional with mass AN!i FLUX 


SUBPOUT INE PBTNIKOUtJT ,NnI I 

implicit REAL««( A-M.fi-$ I 
common /XMMM/Xl 7) ,XSfR) .VIBl 
COMMON /T/TE,S.T0.TFMIN 

N=7 
M=B 

WRITE I #>,10001 
WRITE (6,10011 NOI.RIIUNT 
WRITE (6,100?) 

WRITE (6,1003) (X(J).J=1.N) 
WRITE (6,1004) 

WRITE (6,1003) (V(J),J=1.M) 
WRITE (6,1003) Tf 

icon format (?9H0 iter NM. 

1001 format ( IHO, 16,3>. 16) 

100? format (?H0X) 

1003 format ( IX, 1P30?3. 13) 

1004 format (?H0V) 

1005 format (5H0 TF=,1P0?6.16) 
RETURN 
END 


ooonooi 0 
00000070 

an(> prints oooonoso 

00000040 

ooooooso 
00000060 
00000070 
OOOOOOPO 
00000090 
00000100 
OOOOOllO 
00000170 
00000130 
00000140 
00000150 
00000160 
00000170 
OOOOOIRO 
00000190 
00000700 
00000710 
OC000770 
00C00730 
OOOP0740 
00000750 
00000760 
00000770 
000007BO 
00000290 


trajectory CALLS) 


66 


k. fj j.. I 
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C nri'i'uT/nrsniiT 14 « i iu. 

SUhROliTINF (rudlH ( 4 i -t . .M-t,.';! 

nriiRir i .c.t-n . r. ' .p.pt . 

n I Me NS I IN *> . 1 1 .441 R.fl 1 

*> IND = C 
N = NI 

no f. i = i,N 
nn 6 j=i,N 

6 4( I , Jl=44{ I, J) 

IF'MI 10 , 25,25 

10 M=N 

on 20 1 = 1 , N 
no 15 J=1,N 
15 Rl 1,J)=0.00 

20 »( 1 , 1 )=i.no 

25 1C=0 
11=0 

T = 04RS(4( 1 , 1 I 1 
no 35 1=2.N 

1F( T-04BSI 4( 1 , 111130 . 35.35 
30 11=1 

T=04BS( A1 1,111 
35 CONTINUE 

IF( 1 1 140,65,40 
40 IC=1C*1 

IF(H145,55,45 
45 no 50 J=1,M 
S=R( 1,J) 

R( 1 ,J 1 = R( 11 , J 1 
50 «( 1 1 ,J 1 = S 
55 00 60 J= 1 ,N 
S= 4 ( 1 ,J 1 
A( I,J 1 = A( II, J 1 
60 4 ( I I,J 1 = S 
65 P=A( 1 , 1 I 

1F( OARS( P)-EPS17n,70.75 
70 IN0=1 
0=0,00 
GO TO 200 
75 00 flO J=2,N 
BO A( I , J1 = A( 1,J)/P 
1E(M1P5,95,85 
fl5 DO 90 J=1,M 
90 R(1,J1=R(1,JI/P 

95 DO 170 K= 2 ,N 
KM=K-1 
T=- 1.00 

DO 105 I=K,N 
DO 9P J=1,KM 

96 A{ 1 ,K 1*41 I ,K )-A( 1 ,J 1«A( J,K) 

IF( T-n 4 »s( A( I ,K 1 1 1 inn, 105. 105 

100 T = 04BS(A( I,KH 
II = I 

105 CONTINUE 

IF( Il-Kll 10,135,110 
110 1C=!C*1 

IEIM1115, 125,115 



nnnonoo 

nooooon 

onnoooo 


36110050 
3M ino60 

nonnnoo 
onooooo 
0000000 
361 lOORO 
36110090 
36110100 
36110110 
ooooono 
onooooo 

36110140 
36110150 
36110160 
36110170 
361 lOlBO 
36110190 
36110020 
36110210 
36110220 
36110230 
36110240 
36i;n250 
36110260 
36110270 
361102R0 
36110290 
■'6110300 
36110310 
36110320 
36110330 
36110340 
36110350 
0000000 
36110370 
361103R0 
36110390 
36110400 
36110410 
36110420 
36110430 
36110440 
0000000 
36110460 
36110470 
36110400 
36110490 
36110500 
3M10510 
36110520 
36110530 
36110540 
36110550 



*1 




US 0(1 1?0 J = 1 ,w 
S=H(K , J ) 

R IK, j )=H ( n , Jl 
1?0 Rt I 1 , Jl*S 
12*i on 130 J*1,N 
S*A(K,J) 

A(K,J|sA( U,J) 

130 A( U,J)*S 
13S DT=&(K,K) 

iF(OAPStoT»-ePS)‘(0.vn,i<.o 
1<,0 P = P*OT 

IFIK-N) 1<.5,155, 1A3 
1<,3 KP=K*1 

DO 150 J=KP,N 
00 14P 1=1, KM 

lAB A(K,Jl=A(K,J)-AtK,l l»A( I,J) 

150 AtK, J)=A(K, J)/DT 
155 1F(M) 160, 170,160 
160 00 165 J=1,M 
00 162 1=1, KM 

162 R(K,J)=R(K,J)-A(K.I |«R( I.J) 

165 R(K,J)=R(K,J)/OT 
170 continue 

IFIMOOC 1C,2U175.1H0.175 
175 P=-P 
IftO 0=P 

IF(M) lP5,200,lfl5 
185 n=N 

DO 190 K=2,N 
KP=11 
11 = 11-1 
00 190 J=1,M 
00 190 I=KP,N 

190 R( 1 1, J|sR( I l,Jt-AC II , I l«R( I,JI 
200 RETURN 
END 


36110560 
36110570 
361 lOSBO 
^61 1 05i>0 
36 ) 10600 
36110610 
36110620 
36110630 
36110660 
36110650 
36110660 
36110670 
361 106B0 
36110690 
36110700 
36110710 
36110720 
36110730 
361 10760 
36110750 
36110760 
36110770 
36110780 
36110790 
36110BOO 
36110R10 
36110B20 
36110B30 
36110B60 
36110B50 
36110B60 
36110B70 
36110flfiO 
36110890 
36110900 
36110910 
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C TBAJ/TRAJRKS 
C 

C SER AND HIGH THRUST 
C 7/1^ DIM. WITH Wnwf-R E ‘-B ADAT I UN . 

C THIS RiHITINE SETS UR I u- INPUl TT THf INTEGBAIUH whICh 
C extrapolates The ikf.uCTUR'' E«|im imITIAL TI«E TO 
C FINAL TIME. IT ALSI i-LAlUATES THE CHANGE IN TF AND 
c The error in THF einai Conditions. 
c this program is called ry iter or «y control 
C IT call The subprogram I’RKGS (RUNGA-KUTTAI 
C MIN J, MAX H. 

C 8 DIM. 2ERF. T.C. OPTIONS. 

C N0P=1--ALL 5 FINAL O.B. FIXED. =? — A,E.I ONLY FIXFD. 

C 

C 

SUBROUTINE TRAJ 
C 

implicit REAL«R( A-h.O-SI . rNTEGER ( I -N ) 

C 

COMMON /XMMM/2LOI 7 I . STEPIBI, ZERF(fl) 

COMMON /TRA/TFMAX. UTO. UEP. EW(IA) 

COMMON /Z/ZI 14 ) , dFRZI 14) 

COMMON /INT/ITF, IPS. IDIM, lOIM?, NIMAX 
COMMON /T/TF, SO. TD. TEMIN 
COMMON /ELEM/ZPOl 7 ) . 7PF(5) 

COMMON /OY/OYDT(R) 

COMMON /TC/NOP 
COMMON /HIGH/DVII.O 12.IHI 
COMMON /A/A, AMU. PI 
COMMON /NOD/NODE 
C 

EXTERNAL FUNCT, OUTP 

DIMENSION PRMTI5 . AIIX(«,14),DFRZU 1A),DP(5) 

C 

IF mHI.EO.ll.OM.MHl.EO.4)) GO TO 9 
C 

C HIGH thrust 
C 

UP= I PI/2.DOI*ZLO( 1) /OSORTI 1.00+ZLO( 11**2) 

CUP= DCOS(UP) 

XK= CUP*( .7500+.?S0n=7Ln( 2 ) /OSORT ( 1 .00+ ZLOl 2 I **2 ) ) 
DUM= ( 1.D0+CUP*XK l«nST'RT ( ( CUP-XK ) / ICUP+XK ) ) 

XJ= OUM»ZLO( 3) /OSORTI 1 . DO+ZLO ( 3 )**2 I 
JM= 2 

VAR= ZP0I3) 

IF (NODE.EO.O) VAR= ZLOIS) 

CALL MA INEI 0.00.0. on. XK.UP.XJ. 1.00, 1,JM,0P,DVI 1) 
Call OUTHl IJM.PI . 7P0( 1 ) .ZPO( 2) .VAR.IPR.Z , 101 M2) 

IF (NODF.EO.O) GO TO 4 
Z( 1DIM?+4)i Z(I0!m?+4)+7l0(S)*7(5) 

7(101 M2»5)= ZMriM2 + E)-7L0(5)*Z(4| 

4 no 5 1= 1,5 

5 Z(I + 10IM2)= ZL0(4>*,-; 14.I01M2)*1.04 

DO 6 1= 6,7 

Z( I )= ZPOI I ) 

6 Z(1 + IDIM2)= ZLOm 

C 


00000010 

nonnoo?o 

00G00D30 

00000040 

onoonoso 

00000060 

00000070 

OOOOOOBO 

00000090 

00000100 

00000110 

00000120 

00000130 

00000140 

00000150 

00000160 

00000170 

OOOOOIRO 

00000190 

00000200 

00000210 

00000220 

00000230 

00000240 

00000250 

00000260 

00000270 

00000280 

00000290 

00000300 

00000310 

00000320 

00000330 

00000340 

00000350 

00000360 

00000370 

000003B0 

00000390 

00000400 

00000410 

00000420 

00000430 

00000440 

00000450 

00000460 

00000470 

000004BO 

00000490 

00000500 

00000510 

00000520 

00000530 

00000540 

00000550 

00000560 

00000570 




i 


I 


I 
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r inw thrust 
c 

PR'^T( n= TO 
BRHT(?)= TP 
PBMTOI* DTO 
PR|»Tt4)= UEP 

c 

IF ( ( IHI.EO.?) .OP. ( I'M .fo.3) ) r,0 TO 15 
C 

C Z IS A VECTOR OF state AMT COSTATE 
00 10 I=1,I0IM2 
Z( I )=ZP0( I ) 

10 Z( 1+1DIH2)= 2L0I I I 

C 

C EW ARE ERROR WE IGHT S-- 1 NPUT TO THE INTEGRATOR 
C 

15 DO 20 I=1,ID1M 

20 DERZ( 1 1 = Eh( I ) 

C 

C CALL the R-K integrator 

c 

CALL OHKGS(PRMT.Z.OM<7. I DIM, IhLF ,FUNCT , nt)TP, AUX ) 

IF t 1HLF.GT.10) GO TO 100 
C 

C Z IS NOW THE final O.E.. 

C ZERF THE ERROR IN T'-'F FINAL CONDITIONS 

C 

H=O.DO 

00 30 1=1,101M2 
30 H= H + Zt I*7)aOERZ( 1 ) 

ZERF(6)= 2(131*1.0-3 
ZEPF(7)= Z(lA)*l.D-3 
OYDT(«>)= OERZ( 13)*l.n-3 
nvOT(7)= DERZt 141*1. n-3 
TF1=TF*(STEP(R1*1.00I 
CALL FUNCTITFl.Z.DFRZl 1 
H1=0.00 

00 35 I=l,I01M2 
35 Hl=Hl+i; 1471*DERZ1( 11 

0YDT(P)= (H1-H1/(TF1-TF) 

ZERF(81= H -1.00 
C 

C final CONOITION OPTION BRANCH 
C 

GO TO (40,501. NOP 
C 

40 00 45 1=1,5 

ZERF( 11= Z( I 1 -ZPF( I 1 
45 DyOTI 11= 0ERZ( I 1 

RETURN 
C 

50 ZERF(4l» (Z(3)*Z(Rl-Z(?)*Z(1011*l.r)-3 
ZERF (51= ( Z( 51*Z( 11 )-Z(4)*Z( 121 l*1.0-3 

nYDT(4)= DERZ(3)*7(V)+Z(31*DERZOI-DERZ(21*Z( lOl-Z ( 2 1 *OERZ ( 101 
0Y0T(4). DY0T(41»1.D-3 

OYOT( 51= 0ERZ(5)*Z(ll)*7(51*0ERZ(ll 1-0ERZ(4)*Z ( 12 1-Z ( 4 ) «OERZ ( 1 2 1 
0Y0T(5l= 0YDT(51*1.0-3 


onooosRO 

OOOOOSRO 

00000400 

00000410 

00000420 

00000430 

00000440 

00000450 

00000440 

00000470 

000004RO 

00000490 

00000700 

00000710 

00000720 

00000730 

00000740 

00000750 

00000760 

00000770 

000007B0 

00000790 

OOOOOROO 

OOOOOftlO 

OOOOOR20 

OOOOOR30 

OOOOOB40 

OOOOOR50 

0000OB40 

OOOOOR70 

OOOOOBBO 

00000R90 

00000900 

00000910 

00000920 

00000930 

00000940 

00000950 

00000960 

00000970 

0C000980 

00000990 

00001000 

00001010 

00001020 

00001030 

00001040 

00001050 

00001060 

00001070 

00001080 

00001090 

OCOOllOO 

00001110 

00001120 

00001130 

00001140 




I 






o o o 


IF ( iHi.LT.3) on in hO 

f, 

C FINAL HIGH thrust IMt-iiLSF 
C 

CALL IMPLSIOVI2. I HR.o, ; ,OFRZ, iniMZJ 


nnonuso 
nnoniiF'O 
00001170 
OOOOllBO 
00001 100 


GO 2ERFI 11= zt 1 I - ZPF( 1 I 

DUMl* nsORTI Z( ♦ 70l»*?l 

ZFRF(?|-- Ol'f'l - Z‘>F(?I 
0UM2= OSORT(ZI01**2 ♦ 7IS1>»»?) 
ZERFI 31= 0UM2 - 7PF( 3 ) 
nvOTI 1 1= DcRZI 1 1 
DV0T(2)= 0.00 
DV0T(3)= 0.00 

IF (OHMI.GT.I.D-I?) nvOT(2)= 

IF (DUM2.GT.1.D-1 2) (i''0T(31 = 

SPECIAL CASE, E=0 ANO/OR 1=0 

IF ( ZPF(2) .NE.O.nOt GO TO 70 
ZERF(2I= 2(21 
2ERF(4)= Z(3I 
0Y0T(21= 0ERZ(2) 

DV0T(4)= OER2(31 
70 IF (ZPF(3).NE. 0.001 RETURN 

2ERF(31= Z(4) 

ZERF(5l= 2(5) 

DVDT(3)= DER2(4) 

0Y0T(5)= 0ERZ(5) 

RETURN 

100 IF 'IHLF.EO.in WRIT*- (G. 10001 

IF (IHLF.eO.12) WHITF (G.lOOl) 

IF 'IHLF.eO.13) WRITE (G.1002) 

STOP 


OOnoi 200 
00001210 
00001220 
00001230 
000012*0 
00001250 
000012G0 
00001270 
00001280 

2 (3)*nFRZ (3) ) /O )M1 00001290 

7 I 5)«nERZ (5 ) ) /n )M2 00001300 

00001310 

00001320 

00001330 

000013*0 

00001350 

000013G0 

00001370 

00001380 

00001390 

00001*00 

00001*10 

00001*20 

00001*30 

00001**0 

00001*50 

00001*60 

00001*70 

00001*80 

00001*90 

00001500 


(2(2)*OFRZ(2) ♦ 
( 2(*)*OER2(*) ♦ 


1000 FORMAT (G8H0 THE NUMBER OF BISECTIONS OF THE ORIGINAL INCREMENT HA00001510 

IS exCEEOEO 10) 00001520 

1001 F(70maT (27H0 initial increment is ZERO) 00001530 

1002 FORMAT (5*H0 INITIAL INCREMENT HAS WRONG SIGN OR BOUNDS ARE WR0NG)000015*0 

end 00001550 
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I 


n 


< 


nilTM/OUTPS 


lA OIMENSIONAL WITH FUlX 

This is THF riUTP PR(ii.-’/VM MiR ThF P-C Oft R-K 
INTFr.RAinft — FIXFO 1 ONI.'' tITf = 3 > 
FODINOCTIAL n.E. AM) f.IiSTATF ARE USED. 
INCLUDES SHADOW TIME. 


SUBROUTINE OUTPIT . ?,nFR7 , IHLF , lOIM, PRMT » 

IMPLICIT REAL*ftt A-M.(i-$) . integer ( I-N) 

COMMON /UNITS/l)TS.ttTM,UTH.UTn,UTKM,DTR,UTKG,UTKW,UTMS2 
common /INT/ITF, )pR. id , 1 01 M2, N I max 
COMMON /A/A, AMU, PI 

common /SHAD/ FEN.FFX,OFEN( 5 ),OFEX( 5 ),ISHAO 
COMMON / POW ER/PO,C.pnw,Ph,lSUN,I SON , I POW 
COMMON /ELEM/ Z0U2I 
COMMON /SOL/RSIA) 

DIMENSION PRHTIS). 7(1A). DERZ(IA), W(9), ZIOIIOI 

IF (1TF.NE.3) GO TO 10 
IF (IPR.EO.O) return 
IF (T.EO.PRMTI in NsO 
IF (T.EO.PRMTUn M =0 
N=N+1 

IF I (T.lT.I ,<>9q99q9«ft9n(1*OFLOATtM)*<PRMTI2I-PRMT(in/OFLOAT(lPR) ) 
1 .AND.I IHLF.1 T.ll).ANU.(T.LT,I,999999999D0«PRMT(2in; RETURN 
NsM 41 

CALL SUN(T,Z) 

IF (ISON.eO.O) GO TO 2 
00 1 I« 1,5 

ziom» zm 

Z10(l + 5)= Ztl-F101M2) 

CALL SHADOW! ZIO) 

IF IIPOW) A, 3, A 
P0W= PO 

IF (ISUN.EO.l) P0W=P0W/RS(A)**2 
GO TO 5 

DUM1= OLOG 10 (Z( 7 n + lA.OO 

POW= P0*DEXP(-.A3BAn-12*0UMl**10) 

IF ! ISUN.EO.l) POWs P0W/RS!A)**2 
P0W= POW-PH 
A= 2.DO*POW/(CAZ(6) ) 

TS=UTS*T 

TM=UTM*T 

TH=UTH*T 

TO»UTD*T 

0V= C*DLOG( tOIb) /Z( B) )*UTKM/UTS 

H= 0.00 

DO 7 1=1,IDIM2 

H= H + Z( m01MZ)*DFRZ( I ) . 

WJ1)» Z(1I*UTKM 
W(2|s0.00 


onoooolo 

oonoDozo 

00000030 

OOOOOOAO 

OOOOOOSO 

ooonoooo 

00000070 
OOOOOOPO 
00000090 
00000100 
00000110 
00000120 
00000130 
000001 AO 
00C00150 
OOOOOIAO 
00000170 
OOOOOIRO 
00000190 
00000200 
00000210 
00000220 
00000230 
000002AO 
00000250 
000002AO 
00000270 
000002B0 
100000290 
00000300 
OO000310 
00000320 
00000330 
000003A0 
00000350 
00000360 
00000370 
000003R0 
00000390 
OOOOOAOO 
OOOOOAIO 
00000A20 
OOOOOA30 
OOOOOAAO 
OOOOOA50 
OOOOOA60 
00000A70 
OOOOOARO 
OOOOOA90 
00000500 
00000510 
00000520 
00000530 
000005AO 
00000550 
00000560 
00000570 
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n r> 


4 


)* 4 ? 

toi w( ? t=n<>o«T I niiMMv 1 


30 

10 


IF ( Dl'MMV.r.T. 1 ,fl 
W( 3)^0. DO 
miMMY=7 (A )»#? ♦ 

IF (01IMMY.GT.1.O--O) W(3) = 

W(41*0.D0 

IF ( (Z(4).NE.o.noi.(m.(7(5».Ne.o.f)on 

W(5I» 0.00 

IF ( (7(?).NE.0.n01.(‘H.(7(3».NE.0.00n 

W( 5)*H( 5I-HI4I 

IDIM3=IOIM2+l 


2.no»04TAM(ns<'BT I dummy i i /dir 


WI4)«0tTAN?l7 (4) ,7 (5> I/OTR 


VM5)»D»TAN2(Z(2» ,7 (3))/DTR 


H( 6) = 
W(7) = 
W{9) = 
W(fl) = 


WRITE 

WRITE 

WRITE 

write 

WRITE 
WRITE 
W' ‘TE 
WI .E 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 


Z(M*UTKO 

POW*UTKW 

A*UTMS2 

W(9)»W(6I 


( 6 , 1001 ) 

( 6 , 1002 ) 

( 6. 1003) 

(6.1004) 

( 6. 1005) 
(6,1014) 

( 6. 1005) 

(6.1006) 
( 6, 1005) 
(6,1007) 
( 6, 1005). 
(6,100ft) 
( 6, 1005) 
(6,1009) 


T. T5. TH, TO, OV, N 

(7( n.l = l,)01M2) 

W 

17(1), 1=10IM3,I0I«) 
(0FR7( 1 ). 1=1,I0IM2) 
(t'FRZ ( I ) , I = ID!M3,1DIM) 


PER=2.O0*PI*0SORT ( 71 1 )**3/AMU)*l)TH 
AP= W( 1)*( 1 ,D0+W( ?) ) 

PE= W( 1 )w( l.DO-WI 2) ) 

WRITE (6,1010) H,PER.PE,AP,1HLF 

IF I ISHAD.EO.O) GO TO 30 
IF (FEX.Ll.FEN) FFV = )-EX+?.00»P1 

TSHAD= ( FEX-FEN+7 ( ? ) * ( DCDS ( FEX ) -DCOS( F EN ) )-Z(3)*(0SIN?FEX) 
1 -DSIN(FEN) ) )<^PER/( 2.00*PI ) 

rSHAO/PER 


FPER = 
WRITE 
FEXO= 
FEND= 
WRITE 


( 6, 1013) 
FEX/DTR 
FEN/OTR 
(6,1015) 


TSHAO, FPER 


FENO.FExn 


RETURN 
WRITE (6, 
STOP 


1000 ) 


000005HO 

00000590 

00000600 

000006)0 

00000620 

00000630 

00000640 

00000650 

00000660 

00000670 

000006R0 

00000690 

00000700 

00000710 

00000720 

00000730 

00000740 

00000750 

00000760 

00000770 

000007ft0 

00000790 

OOOOOROO 

OOOOOftlO 

O00O'0R20 

OOOOOR30 

OOOOOR40 

00000R50 

00000H60 

000O0R70 

OOOOOftftO 

OOOOOR90 

00000900 

00000910 

00000920 

00000930 

00000940 

00000950 

00000960 

00000970 

000009ft0 

00000990 

00001000 

00001010 

00001020 

00001030 

00001040 

00001050 

00001060 

00001070 

OOOOlOftO 


00001090 

1000 FORMAT (56H0 ITF Mii51 EOHAL 3 — l.E. NEEO FIXED ESTIMATED FINAL TIMOOOOllOO 

If) 00001110 

1001 format ( 70H0 •••*«»****«#«a«*****#4««***»*»t**e»e»i»*»**«e*#»ii»*#i»*00001 1 20 

!«•«»«««** ) 000C1130 

1002 FORMAT ( 5H T 1 ME . 1 Ox . 1 OHT I ME UNI TS , 15x , 7HSEC0NDS ,9X 00001140 
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.4 


1 ,5HHmih«;,nx.AHh4v<;.4x.BMnv (k/skiox.ihn) oooou^o 

F1IBM4T ( lP?n?S.7. 1 4 A' 1 4, 7. 14// ) 000011^0 

lOO'. FORMAT (IRHO IMF »- ( H 1 1 M 1C T I AL ORPITAL ECEMtNTS, MASSt ANO FLUX ARFtOOOOlWO 

incb FORMAT (IPSO??,!?//) OOOOURO 

looF format (i6Hn thf ri'<;iATF i<;» oonnii^o 

10(17 FORMAT I 3?H0 THF ( p m ) v 11 1 VF OF ThF STATE IS) 00001700 

lOOH FORMAT I3AH0 the OFRIVIT U'E OF ThF COSTATE ISl 00001210 

1009 format ( IHO. 7X , 1 IMHAi* HlONl AM.RX. 12HPER 100 (HRSltTX, 00001270 

I 12HPER1GEE (km),4X,11F'AF00EE ( KM ) ,SX , 14H0I V. TIME STEP) 00001230 

1010 format (2F20.12.1P7i>20.10.i9//) 00001240 

1012 format HP4022.1?) 00001250 

1013 FORMAT (24H0 TIME SPt-NT IN SHAOOW =. F15.R.29H HOURS, FRACTION OF00001260 

1 PERIOD =» F15.R//) 00001270 

1014 format (7flH0 THE CLASSICAL O.E., MASS (KG), POWER (KWl, THRl ST (N10O0O12R0 

1, thrust ACC (M/SFC«*?1) 00001290 

1015 FORMAT { 16H0 ENTRY ANGLE * ,F20,10,14H EXIT ANGLE * ,F20.10) 00001300 

CMrv 00001310 


f 



i, 

■> 




' • ' 

i ■! 

I > 



' * \ 

4 i . • 


\ 


■' I 




c funct/functs 
c 

C SEP 

C COMPLEX Mf)0FL --FLUX ftS ;(7I 

C IP niM. VEPSION WITH t-lli* ANO mass imcluofo. 

C THIS SUBROUTINE IS AM IMPePACr FFIWEEN THF INTFORATOR ROUTINF 
C AND ThF OUADFATURF ROUTINF. 

C INCLUDES SHADOW EFFfCI. 

C This ROUTINF ADD THF FFhFCT OF OPLATENESS (J?) TO THE DERlV, 

C OBLATE CALCULATE^ THE EFFECT OF J?. RETURNED AS DZJ2. 

C Z IS A VECTOR OF THE AVERAOFO STATE AND COSTATE 
C OERZ IS the averaged OERIVITIVE OF Z 
C 
C 
C 

SUBROUTINE FUNCT ( X . Z .OERZ I 
C 
C 

IMPLICIT REAL*B(A-H.0-$) 

COMMON /A/A.AM'I.PI 
COMMON /J2/AJ2 
COMMON/JD/ TL 

COMMON /SHAD/ FEN.FEX.OFENISI.DFEXISI.ISHAD 
COMMON/RCOM/Biq) 

COMMON/ POWER ZPO. C. POW, PH, I SUN, I SON, I POW 
COMMON/ACOM/ AF( 101 
COMMON /S0L/RSUNI3 ) ,RS 
C 

NAMELIST/PRINT/TT , PO. C , Z 1 0, BE T A , DUMl . POW ,0P , OERZ lO.HZ.HM 

C 

DIMENSION Z(IP), OERZ(IP). GdO), HtlO), DZ J2 ( I 0 1 ,C,EX ( 1 0 1 . OE N ( 10 1 
DIMENSION ZlOllO) .OERZ 101 101 ,r,f>(6) ,Hf>( 6) ,DFL 1 (6) ,OFL (fe) 

C 

EXTERNAL FCT.FLUX 
C 

C SET UP COEFFS OF COSF AND SINE IN XI AND VI AND PARTlALS 

C 

C 

BErA= 1.00/1 1.00+nSORT( 1 ,00-Zt 21**2-Z( 3)*»2 ) 1 
B( 1= 1 .DO-Z( 2 )*»2*B-TA 
B( '1= Z(2)»Z(3)*PETA 
B(31= l.D0-Z(3)**2*BETA 
BETA3= BETA**3/( 1. DO-BETA) 

Al» Z(2)«”»2*BETA3 
A2= ZI3)**2*BETA3 
A3= BETA+Al 
AP= BETA+A2 
B(4)= -Z(2)*(BETA*A3) 

B(5)« Z(3I*A3 
B(6)= -Z(2)*A2 
B(7)x -ZI3)*A1 
B(fl)« Z'2)*A4 
B(<J)= -ZI3)*(BETA+A4) 

C 

C 

C 

C 


OOOOOOlO 
Of'or.00 50 
00000030 
OOl'OOOPO 

oonnooso 
ooonoOBO 
00000070 
OOOOOORO 
00000090 
00000100 
00000110 
00000120 
00000130 
00000140 
00000150 
OOOOOlNO 
00000170 
000001 BO 
00000190 
00000200 
00000210 
00000220 
00000230 
00000240 
00000250 
00000260 
00000270 
000002BO 
00000290 
00000300 
00000310 
00000320 
00000330 
00000340 
00000350 
00000360 
00000370 
ooono3flO 
00000390 
00000400 
00000410 
00000420 
00000430 
„0000440 
00000450 
00000460 
00000470 
■>000460 
00000490 
00000500 
00000510 
00000520 
00000530 
00000540 
00000550 
00000560 
00000570 
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non r» r> o 


c 

c 

DO )0 1=1,5 

7io( n = z( n 

10 Z10(I+5)= 71I+71 

c 

DUM= l.DO 
OEX« -PI 
OEN= PI 
C 

CALL SUNIXtZ) 

ISHAD=0 

IE ( ISON. Eo. 01 r,n to 12 
CALL SHADOW! ZlOl 

CALCULATE POWER, DPDN AND ACCElEPATIDN 
1? IF (IPOWl 20,15,20 
CONSTANT POWER 

15 00 16 1= 1,6 

16 OFL( 1 I* 0.00 
POW* PO 

IF (ISUN.EO.il POW* P0W/RSP*2 
0P= 0.00 
0ERZ(71« 0.00 
GO TO 2? 

C 

20 IF» 4 

AIF. 2.00*PI/FlOAT( IF l 
1FV= 0 
Fl= -PI 
00 34 I« 1,6 

34 DFL( 1 1» 0.00 

35 F2= FI^AIF 

CALL 0UA0(Fl,F2,FH)X.DFLl,Z10,r,6,H6,6) 

IFV» IFV^l 
Fl» F2 

00 36 I a 1,6 

36 0FL( 1 la OFL( 1 1+DFLl ( 1 1 
IF ( IFV.LT. IF) GO TO 35 

C 

neRZ(7)a AF( 10)*0 Fl( 1 ) 

IF ( Z( 71 .E(J.0.n01 Z(7)= .500*DERZ(7)*Zm<=*1.5D0 
0ERZ(7)a DERZ(7)/(2. Q*PI) 

C 

C 

OUMla DLOGIOI Z( 7) l + l^-.OO 

POWa PO*OE XP( -.4364 1-1 2*0 Um:**10) 

IF ( ISUN.EO.O) GO TO 22 
POWa POW/RS^PZ 

c 

22 DPa -P0W«.43640-ll»niiPl**9/IZ<7)»0LCG(10.D0)) 

C 

23 POWa POW-PH 

IF (POW.LE. 0.001 GO TO 500 


onoonSBO 
00000590 
00000600 
OOOOOM 0 
00000620 
00000640 
00000650 
00000660 
00000670 
000OO6R0 
00000700 
00000710 
00000720 
00000730 
00000740 
00000750 
00000760 
00000770 
000O07R0 
C'0000790 

ooonoROo 

OOOOORIO 

OOOOOR20 

00000R30 

OOOOOR40 

OOOOOR50 

OOOOOB55 

OOOOOR60 

00000R70 

OOOOORRO 

00000R90 

00000900 

00000910 

00000920 

00000930 

00000940 

00000950 

00000960 

00000970 

000009RO 

00000990 

00001000 

00001010 

00001020 

00001030 

00001040 

00001050 

00001060 

00001070 

OOOOIORO 

00001090 

00001100 

00001110 

00001120 

00001130 

00001140 

00001150 
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ooooo o oooo noo n ooortono 


A* 2.DO*POW/(C»7( 6) ) 


IF ( iSr.An.EO.0) r,n io 30 
Shadow influence 

Ir IFEN.LE.FEX> fen* FFN+ 2.00*PI 
OEX- FEX 
OFN» FEN 

DDc= orosiFENi-nrnsiFFxi 
DOS* 0SIN(FEN)-n<>1N;FFX) 

nilM* (FEN-FEX + Z(?)#n()C-7(3>*nnS)/(2.Dn*Pl ) 

SN= ( l.DO-Zt 31*DC0S( ‘-FNI-7 (2I*DSIN( FEN) )/t 2.f-0*Pl ) 
SX« ( 1.00-Z ( 3)*nr.nS( FFX )-7 (2)’»DS1N(FEX ) ) / ; 2.D0»P1 ) 


30 call OUADIOEX.OFN.FCl .OFRZIO.ZIO.G.H.IO) 

HM= -2.00'»pnw/c*’‘2 
DFRZ(6)* HM*01IM 
HH= Z(13)*FtM 

IF ( ISHAO.EO.O) go to 60 

ShaOOW influence 

CALL FCTIOEN.OEX.ZIO.OEN.GEX) 

HWX*0.00 
HWNs 0.00 
DO AO !*1,5 

HWX= HWX + ZlOI I + SI«GEX( I I 
AO HWNs HWN+Z 101 1+S )»GFN( n 
MWX* HWX+HM*SX 
HWN* HWN*HM*SN 

00 50 1*1,5 

50 0EHZ10(1*5I= OFRZIOI I+5)-HWN*OFEN( D'fHWXADFExn ) 

Pt-RZ10( 7 )* DERZinl 7 l-HM*0DC/ (2.D0*PI ) 

DERZIOI B)* OERZIOI fll+HM*00S/«2.00*PI ) 

HMo Hf*»0UH 


60 IF ( AJ2.LE.0.D0I GO TO 9C 

OBLATENESS EFFECT 

70 CALL 0BLATEUJ2.Z10.07J2.n 
DO 80 1=1,10 

80 DERZIO! I !* OERZIOI I )'»OZJ2( I) 
C 
C 

90 HZ.» 0.00 

DO 100 1*1,5 


nnool 160 
oonni 1 70 
oooni iBO 
00001190 

00001200 

00001210 

00001220 

00001230 
000012A0 
00001250 
00001260 
00001270 
0O0012R0 
00001290 
00001300 
00001310 
00001320 
00001330 
00001 3A0 
00001350 
00001360 
00001370 
00001380 
00001390 
noooiAOO 
OOOOIAIO 
00001A20 
00001A30 
OOOOIAAO 
00001A50 
00001A60 
00001A70 
00001 A80 
0000. «,90 
00001500 
00001510 
00001520 
00001530 
00001 5A0 
00001550 
00001560 
00001570 
00001580 
00001590 
00001600 
00001610 
00001620 
00001630 
000016AO 
00001650 
00001660 
00001670 
00001680 
00001690 
00001700 
00001 7 ID 
00001720 




\ 


100 H7« H7»710M*e«l''OF(<7l0( I) 

C 

0FR7( m* H7/7(M 

DFR7n'»l« -DP«(M7 + HM)/FCIW 

on no i« 1.5 
nER7t I )« 0ER710( I ) 

no 0ERZn + 7)« l)Fft71(MU51-ftF( lO)«'7H<.|»nFL( !♦! . , (2.r)0*Pll 

c 

c 

C TT«X 

C WRITE (6, PRINT) 

C 

RETURN 

C 

500 WRITE (6,1000) 

1000 FORMAT! 'EITHER POW (IB Tl <,= O') 

STOP 

END 


noooi7'^o 
000017AO 
00001750 
00001760 
00001710 
000017BO 
00001790 
OOOOlftOO 
OOOOIRIO 
00001PI20 
00001R30 
00001R90 
00001B50 
0000 IRnO 
00001P70 
OOOOIRRO 
00001R9O 
00001900 










C 

C 

c 

C This SUHPRnrRtM STTS ihi- phr partuk rRoiTil. iil-i^rMS 

L 'NO CALCtftAT(-S T«t VPiN AMi«aLV AT T Hf- INITIAI T I '*f- 

c t.e. tak.n h*om raii in. irn<-. rruch irro jan. I.''. jn=?R?^'4^s. 

C NPllT 

C TL — INITIAL TlfF, Rt'.INNlNf, .IF LOW THRUST TRAJ 

C OUTPUT 

C C(D— FARTh'S SFmimajOP AXIS 

C C(?l — EARTH' S eCC-NTR ICI TV 

C C(3) — ARGUMENT flE PFRIH. 

C CIA) — MEAN orbital Mill ION 

C CI51 — MEAN ANOMAi Y A) TL 

C Ct ^) — CO-INE OF ANC.I F OF OPLiOlllTV 

C C(7| — SiNE OF ANI-lE of OPlIOUITV 

C C(!7t '0. OF N MAC. pole AT T 1 MF TL 

C CUfl OF N. MAG. POLf *»** SFT TO QO DEi.»FES 

C C(19»--rA-TH ROT. FR^O. »««« SET TO ZERO 

C C!20»--/!*PI 

C 

C 

r 

SUBROUTINE EARTH 
C 

IMPLICIT CEAl»R( A-M.O- tl 
C 

COMMON /JO/ TL 
common /terra/ CI20I 

COMMON /UNITS/UTS.UTn ,UTm,UTD»UTKM-DTR ,UTKG ,1'TKW ,UTMS2 

c 

c 

C(l) - 1.00 
CI2)-- .01672F00 
CI3)= 102.2525300 
C(A)= .9R5609D0 
C 

C MEAN anomaly at epoch 

AN= 100.1581500-CI3) 

B0= AN 

C mean anomaly at time TL 

AN= AN*C(A)»(TL-2A36935.00) 

AN=AN/360.00 
AN=AN-I0INT( AN) 

C 

C(5I= AN*360.00*OTR 
Cl 3)= C(3)»0TR 
C(A)= C(4)«0TR*UTn 
C 

DUH= 23.a 5»OTB 
Cl s’= ocosinuM) 

CI7)=DSIN(0UM) 

C 

t '•.ALC'" ‘T<= THE rotation ma'iCiX R.'.nM EOUATORIAL TO GMT COORO. 

C 

!. 0= BO+t 2.00*C I 2 ) ’5rn*r ( ?I*»3I“0SINI PO )♦! .?50n*c l 2)**2 
1 *OSIN( 2.00«B0I* 1 .0F33333333333300»CI 2l*»3»f)SiNI3.00-‘BD) 


ponnoni n 
00900020 
09000030 

i'll 0(IO(H.O 

ooronosn 

ooonooFO 

00000070 

ooonooBO 

00000090 

ononoloo 

onoooiio 

00000120 

00000130 

onoool AO 
00000150 
OOOOOIGO 
00000170 
OOOOOlPO 
00000190 
00000200 
00000210 
C000O220 
00000230 
000002A0 
00000250 
00000280 
00000270 
000002BO 
00000290 
00000300 
OO0OC31O 
00000320 
00000330 
000003AO 
00000350 
00000360 
00000370 
OOOI.03BO 
00000390 
ooonoAOO 
nnoooAio 

OOOOOA20 

OOOOOA30 

ooonoAAO 

00000A50 

OOOOOA60 

00000A70 

OOOOOARO 

OOOOOA90 

00000500 

00000510 

00000520 

00000530 

000005A0 

00300550 

00000560 

00000570 



r 





POr PO*C(3) 

nooonSRO 

RXr -DCOStPOi 

OJIOOOS^JO 

py= -nsiN( M 

nrnno^ioo 

RM|I= OSQR T ( RX«*?*k Y'f ? ! 

nooooM 0 

RX= RX/Rh[; 

ononr>h?n 

RV= RY/RHO 

C0000^30 

C< R)= RX 

OOOOOPAO 

C(9)s -RV 

00000850 

CI10»= 0.00 

00000880 

Cl in= RY 

00000870 

C(12)= RX 

000008RO 

C(13»= 0.00 

000008T0 

cn^i= 0.00 

00000700 

Cl 15)= 0.00 

00000710 

CI16)= 1.00 

00000720 

00000730 

CI17)= 2P<).<)00*mR 

00000740 

Cl 18)= qo,Do*r)TR 

00000750 

Cll<))= 0.00 

00000780 

Cl 20)= 360.00»0TR 

00000770 

CI17)= CI17)+CH9)*I TL-2x.3#><»35.DO)/UTO 

000007R0 

00000790 

RETURN 

OOOOOPOO 

END 

00000810 
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SUN 


THIS program C4LCULATKS 1 HE EARTH TO SUN OIRPCTION AND 
niSTANf FUR A GIVEN HMr. (UlTPuT IN THc fOIMNOCTIAL 
COORDINATE FRAME. 

ALSO CALCULATES FLUX FACTORS. 

INPUT 

Z— 10 vector of EO. O.E. and COSTaTEINOT USED) 

AE — EARTH ORBIT SFMIMAJOR AXIS 
EC — earth ORBIT ECCt-liTRICITY 
W — LONG. OF PERIH. 

ENE — mean orbital Mill ion 

AN — mean anomaly at BEGINNING OF TRAJECTORY I TO! 

COB — COS OF anglf of ORLIOUITY 
SOB — SIN OF angle of obliquity 

CMA — ROTATION MATRIX FROM EOUAT. TO GMT COORD. 

A1 — LONG. OF N MAG POLE AT TL 
A? — LAT OF N mag P0l>- AT TL 

WE — earth rotational freo. 

TOPI — 2*PI 
T — PRESENT TIME 
OUTPUT 

RS — UNIT VECTOR FROM EARTH TO SUN, EQUINOCTIAL COORD. 

R — distance from earth to sun at time T 

C — flux FACTOPf 


SUBROUTINE SUNIT.Z) 

IMPLICIT REAL*B( A-H.O-$i 
COMMON /SUL/ RS(3I. R 

COMMON/TckHA/ AE,EC.w,ENE.AN,C0B,S0B,Cma(3,3) ,A1,A2,WE,TUPI 
COMMON/CCOM/CI 61 

DIMENSION RSKC ) .CM( 3,3) ,71 141 
DIMENSION VNI31, V2 ( 3) ,CMP(3,2),CMQC3,2) 


MEAN ANOMALY AT TIME T 
AA= AN-fENE«T 
C 

C TRUE anomaly — CORRECT Thru ECCENTRICITY CUBED 

F = AA+( 2.D0«EC-. ?‘'no~FC*s>3 l®OSINI AA ) ♦ 1 .25D0*EC**2' OSI N I 2.00* AA I 
1 ♦1.0B33333:-3333DO«EC**3*OSIN(3.00*AA) 

B=F*W 

C 

c distance between earth ANO sun 

R = AE*I l.DO-EC**?) / ( 1 .00+£C*OCOS»Fn 
C 

c ■ Y vector to sun. equatorial COORD. 

RSim=-DCOS(BI 

RSl(2l--C0B«nSIN(P) 

RS1(3I=-S0B«0SIN(B) 

C 


onoooolo 

00000020 

00000030 

00000040 

ooooooso 

00000060 

00000070 
OOOOOOBO 
00000090 
00000100 
00000110 
00000120 
00000130 
00000140 
00000150 
00000160 
00000170 
000001 BO 
00000190 
00000200 
00000210 
00000220 
00000230 
00000240 

00000250 

00000260 

00000270 

000002B0 

00000290 

00000300 

00000310 

00000320 

00000330 

00000340 

00000350 

00000360 

00000370 

00C003BO 

00000390 

000004C0 

00000410 

00000420 

00000430 

00000440 

00000450 

00000460 

C3000470 

000004B0 

00000490 

00000500 

00000510 

00000520 

00000530 

00000540 

00000550 
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C IHANSfORM TO FOOIfJOCI I At roi nn. 

AK= 1 ,l'0 + 7 t I-*®? 

c ** 1 1 . 11 = 1 1 . 00 -; ' -t r * • I *5 )»'■? I ZAP 

CM(2.’I= (.• 1 ' ' ( b ) ZAP 

CP(3.n= -?.no«-zi i. I ZAP 

CPI 1 .? )= cpt ?. n 

C.P12,?1= ( 1.00»Zii) -?-.M61»-?)ZAB 
CP(3,?)s 2.on«Z(s»ZAP 
CP( 1.31= -CP| 3. 1 ) 

CM(2.3I= -CM(3,?» 

CP (3,31= ( l.no-7(‘-) = = 2-?(5l*»2l/AB 
nn in i=i,3 
RSt 11= 0.00 
on 10 j=i,3 

10 Rsti)= Bsm*cpij. I i'msh j» 
c 
c 

C CALCULATION OF C(6). Flhx FACTORS 
C 

ThFTAs WE»T*A1 

THETA= TMFTA/TUPI 

THETA= ThETA-IPINT ( Tt-ETA) 

TmETA= ThETA*TUP! 

C 

c VN IS VECTOR THR . N »AG POLE AT TIME T IN GMT COORO 
A3= DC0StA2) 

VNm= DC0S(THETAt»A3 
VNI21* 0S1N(THETA)*A3 
VNI3)» DSINIA2) 

C 

C V2 IS N IN EQUATORIAL COORDS. 

DO 20 1=1,3 
V2( 1 .=0.00 
DO 20 J=l,3 

20 V2in= V2(I l-VN(J)*CMA(J, I ) 

C 

C CALC PARTIALS OF F AND G UNIT VECTORS 
AR= 2.D0/AB 
00 30 1=1,3 

CMPl 1,11= -AB*( 7 IS )=rPt 1 .2I+CMI 1,3)1 
CHP(1,2)= AB»2( M*CM( 1 , 1) 

CM0(1,1)= AB*7(A)»fM( 1.2) 

30 CM0(1,2)= AB*( -7( A)»CM( I .1 )*CM( 1,3) ) 

C 

", C(1),C(2) ARE COEFF OF xl.Yl IN EON FOR SINIALPHA) 

C C(3),CK) ARE COEFF OF xl.Yl IN OSIN OP 
C C(5),CI6) » « DO 

DO *0 K=l,2 
C(K)= 0.00 
CIK+2)= 0.00 
ClK+A)= O.UO 
00 AO J=l,3 

C(K)= C{K)+V2(.l)«CMt J.K) 

C(K*2)= C(K*?)+V?( J)“CPPU,K) 

AO C:K*A)= C(K+A)*V2( J)*CP0(J,K) 

c 

RETURN 

END 


nopnobpo 
'looorsvo 
000 00=' “ 0 
ooooob'.n 
oonoo'-on 
oonooM 0 
onooob?o 

00000^=40 

oooorf.<.o 

0(>('OObSO 

onoooppo 

OOOOOhTO 

OOOOOhRO 

oonoopno 

00000700 

00000710 

00000720 

00000730 

000007AO 

000007SO 

000007AO 

OC.OOOY70 

00O007P0 

000007*^0 

OOOOOROO 

OOOOORIO 

0O000P20 

0 OOOOR 3 O 

onoooRAO 

OOOOOP50 

onooppFO 

00O00P70 

OOOOPPPO 

OOOOOPRO 

00000900 

OOOOOQIO 

00000920 

00000930 

0000 

00000950 
000009AO 
00000970 
0O00O9R0 
00000990 
00001000 
00001010 
00001020 
00001030 
00001 OAO 
00001050 
00001 OAO 
00001070 
OOOG'.ORO 
00001090 
(0001100 
00001110 
00001120 
00001130 
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SHannw/SHAOOwi 

This PR0GPA“ 06Tf«M1A'HS IF A C.lvFM HB»1T PA'.^F'. THROUGH 
TmF FARTH'S SHAf'OW Ar u If fiu hmAT Thb FNTuv aNO FXIT 
angles are. n ALSO f.Al niATFS U’F PAWTUL OFRlVlTIVt 
VECTOR OF F WHT ThE P.F. AT Tnf tNTHV ANO FxlT POINTS. 

INPUT AND OUTPUT IN EOoUOCIIAL COORD. 

INPUT 

Z — 10 VECTOR OF f’.t-. ANO COSTATE (COSTATE NOT USEDI 
XSUN, YSUN.ZSUN — SON'S DIRECTION IN EO. COORD. (UNIT VECTOR) 
OUTPUT 

FEN — ENTRY ANGLF 
FEX — EXIT angle 

DFEN — OIRIVITIVE OF F AT ENTRY 

OFEX — OIRIVITIVE OF F AT EXIT 

ISHAD — FLAG=0 if ORhIT not INTERSECT SHADOW 

=2 IF OHRIT ENTER ANO EXIT FROM SHADOW 


SUBROUTINE SHADOW! Z) 

C 

implicit REAL*B( A-h.O-$) 

C 

COMMON /SOL/ XSUN.YSON.ZSUN.RSUN 
COMMON /SHAD/ FFN.FFX.DFEN(5»,0FFX(S». ISHAD 
C 

DIMENSION OSOX( S) . API A) .RT(<.»,Z( 10) 

C 

NAMELIST /DUMFEN/ FFN.DUM 
namelist /OUMFEX/ r-x.oum 
c namelist /eo/ ap.wt.are 

C namelist /E02/BETA,«1.B?.R3,D1,02.D3,hi,h2,h3,G1,G2.AO 

C namelist /pra/ dom.osdf.dsdx 

C namelist /PRS/ I . 1 I .CF.SF.XUYl 

C namelist /PR6/ I.II.FPN 

C 
C 

C CALCULATE POLYNOMIAL COFF. 

C 

BFTA= DSORTI 1.00-7t 2 )* *2-2 ( 3 1**2) 

BETA= l.DO/I 1.00+RETA) 

Bl= 1.00-Z(2I**2«BETA 

B2= 2(2)*Z(3)*6ETA 

B3= 1.00-Z(3)**2»BETA 

01= 1.00~XSUN*«2 

C2= 1 .00-YSUN**2 

D3= 2.00*XSUN*YSUN 

C1=B2**2 

C2=B3*»2 

C3=B2*B3 

CA=B1>*B2 

H1=01*(B1**2-C1 l♦o?=^Cl-C2)-D3*(CA-C3) 
H2=-2.00»(01»ei«7( 3)*D2»B2«Z(2) ! *03» ( B?*Z ( 3 >aB1 *Z ( 2 ) ) 
F-3=01« (C1*Z( 31**2 l*o;* (C2+Z( 2)“*2»-D3* (C5+Z( 2)*Z (3) ) 

1 -1.00/Z( 1 1**2 

Gl= 2.00*(01*CA-H'7=r3)-03*(C1*B1*B3) 


nnoDonin 

ooonno20 

00DDGP30 

ooonroAO 

ooonooso 

oooonoAO 

00000070 

OOOOOORO 

ooooooo 
00000100 
OOOOOl 10 
00000120 
C000.T130 
OOOOOlAO 
OOOOOISO 
00000160 
00000170 
OOOOOIRO 
OOOOOIRO 
00000200 
00000210 
00000220 
00D00222 
0000022A 
00GO02A0 
00000250 
00000260 
00000270 
000002P0 
00000290 
00000300 
C0000305 
00000306 
00000307 
0000030B 
OOOOC309 
00000310 
00000320 
00000330 
00000 3A0 
00000350 
00000360 
00000370 
000003R0 
00000390 
OOOOOAOO 
OOOOOAIO 
00000A20 
00000A30 
OOOOOAAO 
00000A50 
000C0A60 
0D00PA70 
OOOOOARO 
OOOOOA90 

00000696 

C0000500 
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( -i i ( ? » )*n3-'t b?*^z n> ♦«?*?(? n 

f.i= Gl*»? 
c?s r,?»o? 

C3= Gi#r,? 

ftO= Hl»- ?*ci 

C WRITE 18 . to?) 

API 1 )»?.l'ne ( m1#h?*C 3 1 / AO 
API2)s (H?e»2*?.i n*M^#Hi-cl+C?)/AO 
AP(3)= 2,DO«IM3>»i-?-C3)/AO 
AP(A)s I H3»«2-C2 I /AO 
C 

C CALL SUBROUTINE TO SOl.V- A cniARTlC EON. 

C 

CALL DOR I IC< AP.Rl .NRt- ! 

C 

C WRITE (6,EQI 

C 

C NRE= NUMBER OF REAL ROOTS. MUST BF EQUAL TO 0,2. OP A 
C ROOTS ARE RT(I), OR H ( 11 , RT I 2 ) . R T ( 3 )♦ -RT » A )• 1 , OR 
C RTI I )+-RTI2)sI ,RT( 3)*-RT(A)»l 

IF I INRE.6C. U.OR. (MPF.FQ.3i ) GO TP 130 
C 

FEN= 100.00 
FEX= 100.00 
I SHAD* 0 
1*0 

10 1*1+1 

IF I ( ISHAO.EU.?) .OR. ( 1 .to. (NRF + 1 ) 1 ) GO TO 120 
C 

CF* RT(l) 

SF* DSORTI 1.00-CF**?) 

C 

C HEMISPHERE CHECK 
11*1 

20 XI* B1»CF + B2*SF-7I 31 
Yl* B3*SF+B2*CF-7(2) 

C WRITE (8,PR5I 

IF ( I X1*XSUN+Y1*ySMN) ,LT .0.00) GO TO AO 
30 IF ( II.E0.2) GO TO 10 

n »2 

SF*-SF 
GO TO 20 
C 

C IS SHADOW EQUATION ZERO? 

AO EON* Dl»Xl»«2+D2’»Yi*»?-n3»Xl»Yl-Z( 1 )*«(-2) 

C WRITE (S.PHfe) 

IF (OABS(EON).GT.I .U-M GO TO 30 
C 

C ROOT HAS PASSED TESTS--NOW CHECK TO SEE IF EXIT UR ENTRY ANGLE 
DXDF* -B1*SF+B2*CF 
OYOF* -62»SF+B3*CF 

USDFs (2.ao*Dl*Xl -03*vi )*0X0F + I 2.00*n2*Yl-D3»X 1 ) *0YDF 
OUK* DATAN2(SF,CF) 

IF tOSDF) VOtSO.BO 
C 

C ORBIT IS TANGENT TO ShAOOW 
50 VfRITE 16,1010) 


00000510 
00000520 
00000530 
000005AO 
00000550 
00000555 
00000560 
00000570 
000005BO 
00000590 
00000600 
00000610 
00000620 
00000630 
00000632 
0000063A 
000006AO 
00000650 
00000660 
00000670 
000006B0 
00000690 
OOOOOBOO 
OOOOOfilO 
OOOOOB20 
OOOOOB30 
OOOOOBAO 
000O0B50 
00000B60 
00001000 
00001010 
00001020 
00001 030 
OOOOIOAO 
00001050 
00001060 
00001065 
00001070 
00001080 
00001090 
00001100 
OOOOlllO 
00001120 
00001130 
00001 lAO 
000011A5 
00001150 
00001160 
00001)70 

oooon 

00001190 
00001200 
00001210 
00001220 
OOC-01230 
000012 AO 
00001250 
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r,n TO 30 

c 

C IS ffcx aLR6aOY fniiNO? 

ISO IF t FFX.FO. 1 .0? I r.ii TO MO 
C YFS 

WRITE (F.miMFEXI 
no TO 30 

c 

C IS FEN iLBEADY FOUND? 

70 IF (FEN. EO. 1.02) r.D TO »0 
C YES 

WRITE tfi.DUMFEN) 

00 TO 30 
C 

C CALCULATE OSOX 
«n 7FTA= 7(3)*SF-2(?)*CF 

RETA3= BETA»*3/( 1 .no-RET A) 

P25=: 2(2)*BETA3 

P26= 7(3)*fiETA3 

nxOH= -2.no*Z( 2)*FE I A«CF+7( 3)»PFTA»SE*PZ5«2ETA«2 12) 

0X0K= Z( 2 )'PET A«SF-l .D0+P7P*; ( 2)e2cT A 

OvnH= 2( 3 )*FETA*Cf -? . no-P2S»2( 3)«2ETA 

DYOK= -2. DO'S 2 ( 3)^FFl A»si- + 2( 2)«RETA»CF-P70*? ( 3)*7ETA 

osoxi 1 )= 2 .nn*z( n»«( -3 ) 

0UM1= 2.00«0l»XV-r.3»vi 
0IIH2= 2.D0*0?*Y1-I>3«X) 

OSOXI 2 )= ouMi*nx( M+iiuM2»nYnH 
OSOXI 3)= OUMl*OXf'K*niiM2»OYOK 
0 = 2.00/1 1.00*2 IP )”e2*2IS) = = 2) 

DXSP= I-VSUN»2I 5)-2S(/N)«D 

ox$o= YsuN* 2 rp)'*n 

OYSP= xsuN*2i5)*n 

OYSO= I-XSUN«ZK)+2SltN)#D 

DIIH1= -2.00*X1»I > 1*XSUN + Y1*YSU .) 

0UN2= -2,00*Y1*I Y 1«ySUN*X 1*XSUN» 

0S0XIP)= 0UMl*nxSP*OliP2»DYSP 
OSOXI S)= DUMl#0XSO*niiM2 = 0YSO 
C WRITE I6.PRP) 

1SHA0=ISHAD+1 

IF IOSOF.LT.O.DO) go TO 100 

c 

C EXIT angle and OERIVITIVF 
FEX=OUM 
00 90 J=lt5 

90 c :xij)= 050xij)/nsnF 

GO TO 10 

c 

C entry angle and OERlVITIve 

100 FEN=OUN 

on 110 j=i,5 

no 0FENIJ)= OSOXI J ) /OSDF 
.GO TO 10 

c 

c 

120 IF I I ISHAD.EO.OI.OR.I ISHAn.E0.2n RETURN 
WRITE 16,1020) ISMAD 
rSHA'"= 0 
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00001260 
00001270 
0000 ) 2«0 
000012^0 
00001300 
00001 310 
00001320 
00001 330 
000013PO 
000013SO 
00001360 
00001370 
000013PO 
00001 390 
00001400 
00001410 
00001420 
00001430 
00001440 
000014SO 
000014/ 0 
00001470 
000014BO 
0000)490 
00001492 
00001494 
OOOOISOO 
00001510 
00001520 
00001530 
00001540 
00001550 
00001560 
00001570 
O00015R0 
00001590 
00301600 
00001605 
00001610 
00001620 
00001630 
00001640 
00001650 
00001660 
000ri670 
00001 6R0 
00001690 
00001700 
00001710 
00001720 
00001730 
00001740 
00001750 
00001760 
0C.901770 
000017RO 
000017R5 





return nnooiToo 

^ (uirnTHon 

130 WRITE th, 10301 M-l- OOOOIPO? 

510P OOOOIRO^ 

C onnoiBOf' 

C onnoiPio 

1010 format (33HO nSOF*0. ORPIT T&NOENT to SHADOW) 00001B?0 

1020 format ( ISHO ERRnR--l«.Mftlt=,lA| 00001R30 

1030 format (A9H0 OORilC *-AS RETURNED WITH NIIMHER OF REAL ROOiS =,K1 00001R32 

0NO OOOOIRAO 
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SltBRllllT 1 NE noRTlr ( r. .K .NHE I 

c 

r 

C SOLVES RHLVMIMIAI >-"I AIMIN' ; .K ImE TVPE 

x*»<,*cii'‘'X''-»3+ri'')' r,r^)'x+ct'*i-o 

The COEEEICIENT me x'.ca is ASSOmeI) to be 1 

R CONiAINS THE ROOTS 

NRE C INTAINS THE NO^kER ME REAL ROOTS 

IF THtRE ARE TWO eEAi ROOTS THEY V. 1 1 L BE 
R(l) /NO R(2), WIT-^ IHE complex ROOTS R(3I+-R(4I*I 

IF THERE ARE NO “EAl ROOTS. THE COMPLEX 
ROOTS ARE R(n*-R(?)’^l ANO R I 3 )*-R I A » «■ 1 

DIMENSION C(A) ,W(P) .rP(3),Y(3) 

OOlJBLE PRECISION C .R . CP . Y , C 1 SO, A , B.O, F, F ,RE AL .OSCR , R AO 
C1S0=C( 1 »**? 

CPI 1 )=-C(2) 

CPI 2 I =C I U'CI 3 I-A.nOf' 

CPI3) = I A.OO*CI2 )-C lS' ,«r. IX^)-CI3)**2 
E CALL DCUBICICP.Y.oiim) 

B A = ClSO/x..no-CI2)+Y( 1 ) 

B=.5DO*C I 1 )*YI 1 )-CI 3) 

0=.25D0»Y I 1 )*YI 1 )-CI A ) 

IFIA) 10,10,15 
10 E=0. 

GO TO 20 
15 E=OSORTIA) 

20 :EID) 25,25,30 
25 F=0. 

GO TO 50 

30 F = OSIGNinSOR.TIOI .B1 
50 NRE=0 

REAL*-.25DO»CI 1 )+.5D0»E 
DSCR = REAL*REAL-.5O0<-vI 1 )+F 
53 RAD=DSORTIDABSinSCRn 
1FI0SCR)B0,55,55 
55 NRE»2 

RI 1 )=REAL + RA0 
RI2)»REAL-RA0 
GO TO 65 
60 RI3|eREAL 
RIAIsRAO 
65 REAL=REAL-E 

OSCr, = REAL*REAL-.5no«YI 1 )-E 
6P RAD=0S0RTIDABSIDSCR) ) 

IF(OSCR)fl0,70.70 
70 NRE = NRE4-2 

R INRE )=REAL-RAD 
RINRE-1 )=REAL*RAD 
GO TO 90 
flO R I NRE + 1 ) = REAL 
RINRE+2):RA0 
90 RETURN 
END 


1 70020 
TC 1 70030 
3C1 700S0 
’Cl 70060 
3C 1 70070 
-Cl ?00H0 
3C 1 ?no'TO 
3f 170100 
3C170 1 10 
3C1 70170 
3C170130 
3C1 701AO 
SCWOIS'^ 
3C170160 
3C120170 
.3C1201B0 
3C120190 
3C170200 
3C1707I0 
3C17022O 
3C120240 
3C170250 
3C170260 
3C170270 
3C1202BO 
3C170290 
3C170300 
3C170310 
3C170370 
3C120330 
3C 120360 
3C120350 
3C120360 
3C120370 
3C1203B0 
3C120390 
3C 120600 
3C170610 
3C170620 
3C1 70630 
3C 120660 
3C120650 
3C 120660 
3C1 20670 
3C1206B0 
3C1 20690 
3C1 20500 
3C120510 
3C120520 
3C120530 
3C120560 
3C120550 
3C120560 
3C120570 
3C1205B0 
3C12C590 
3C 120600 
3U20610 
3C120620 
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SUBROUTINE nCUHlC (C .w.NHE I 


SOLVES POLVNOMUl E' l'/>TMiN OE ThF TYPE 
X**3+C I n^X'coj+CI I > + f. I 31*0 

THE COEFFICIENT OF x**3 IS 4SSUME0 TO BE 1 

R CONTAINS THE ROOTS 

NRE CONTAINS the NuM^FR OF REAL ROOTS 

IF THERE IS (INF RFAI ROOT IT WILL BE 
IN Rdl.WITH THE complex ROOTS R(2I+-R«3)*1 

OI'^ENSION C(31,R(3I 

OOUBLE PRECISION C . R .C 1 SO. P ,0,0EL . T , A .CRT A.CRTR , PHI 3 .CON , Y 
OOURLE PRECISION B.S'.HO 
C1S0=C( 1 1**2 
P=C(2)-C1SO/3.00 

0*C( 3)-(C( 21 /3.()f'-2.|i0^ClSO/27.OOI*C( 1 1 
OEL = A.OO*P**3+27.00*< *0 
T=C( 1 1/3.00 
5 IF(0EL1?0,10,10 

10 S0*0S0RT(OEL/10B.O01 
HO*. 500*0 
A=-HO*SO 
B*-HO-SO 

CRTA*OSir.N(OABS( A 1*«. 3 333333333333333300. A 1 
CRTB*OSIGN(DABS( Pl*». 3333333333333333300, 61 
15 Y*CRTA*CRTB 
R( 1 )=Y-T 
R(21=-.500*Y-T 

R( 3) = .666025x,037HF<.3R^500*tCRTA-CRTB) 

NRE-1 
GO TO RO 

20 PHI3=0ATAN2(0S0RT ( -nt-L /27.00 1 ,-0» /3.D0 
22 CON=2.00*OSORT( -P/3.001 
30 R(11*C0N*0C0S(PHI31-T 

R( 2l»-CON*0COS( 1 .Ofc M97551 19f>597700-PHI35-T 
R(3)=-C0N*DC0S( 1 .0R7197551196597700+PHI3I-T 
NRE*3 
40 RETURN 
END 


3C110020 
3Clinn<n 
3cno050 
3CI100F0 
3C110070 
3C1100B0 
3C1 10090 
3C110100 
3C110110 
3C110120 
3C110130 
3C110140 
3C1 10150 
3C1101B0 
3C11O170 
3C1101B0 
3C110190 

3C110210 
3C110220 
3C110230 
3C110240 
3C110250 
3C1102N0 
3C1102 
3C1102B0 
3C1 10290 
3C110300 
3C1103 
3C1103 
3C110330 
3C110340 
3C1 10350 
3C1103 
3C1 10370 
3C1103B0 
3C1 10390 
3C 110400 
3C110410 
3CU04 
3C1104 
3C1 10440 
3C110450 
3C1 10460 
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C FLUX 

C 

C 

c 

r. This pshgu/im calchlt>'. I’F m 'x pfbivitivf ano 
C Thp INTEPANI) of THF hi ' roi' TP I P.'IT II'N TO THF O.F. 
C CnSTATE EOUATION 

C ONLV G(l), PFPX, PFPv, Ain PFPSA ARE OEPENOENT 

c ON the form of n hot 

c 

c 

SUBROUTINE FLUX(F) ,F?.7.H,GI 
C 

IRIPLICIT REAL*fl(A-H.O-») 

COMMON /BCOM/RI9) 

COMMON /CCOM/C(f>) 

COMMON /ACOM/AF(10) 

DIMENSION FI(9),FIiM<, ',FIV(9),FIWt9I 
dimension z( i).h( 1 i.Gm.PF(S) 

C 

c 

M = 0 
F= FI 

c 

c CALCULTE geomagnetic COOPOINATES 
c 

5 CF= OCOS(F> 

SF* DSINIFI 

Xl= Zm*(Bin»CF*p(7)*SF-7l3ll 
vi» zm^iBiz.ix'CF+Roi^sr-zizn 
R» DSORTI X1«*2-fV1»>»?I 
U= 1.00/R 

SA= (cii)*xiFC(z)»vn/fi 
SGN= O.DO 
DUM1= DABSI SA) 

IF lOUMl ,GT. 1.0-10) SGN= SA/DUMl 
SA= DUMl 
CA= u.DO 

IF (SA.LT.I.DO) CA= nSORTI 1.00-SA**2I 
IF ICA.LE.1 .0-10) CA= 1.0-10 
S= 1.D0-7(3)»CF-7( 2)«SF 

C 

C FLUX RATE EQUATION 

C 

FKl). U*CA 
Fl(2)= U**2*CA 
FK3)* FI(21*SA 
FI(A)= U*SA 
FI!S)= L**3'*SA**2 
FI(6)= FI(5)*SA 
FI(7)= DS~RT(U)*CA 
FI(8)= U**.25DO*CA 
FK9)* U**.2D0*CA 
C 

SUM- O.DO 
op 6 1=1,9 

6 SUMe SUM+AFt I )*FI ( I ) 


i 

( 


onnoooi 0 
00000020 
00000030 
(■nooi'OAO 
000000^0 
OOOOOOFO 
00000070 
(OOOOORO 
00000090 
00000100 
OOOOOllO 
00000120 
00000130 
OOOOOIAO 
00000150 
OOOOOlhO 
00000170 
OOOOOlflO 
00000190 
00000200 
00000210 
00000220 
00000230 
000002AO 
00000250 
000002BO 
00000270 
000002RO 
00000290 
00000300 
00000310 
00000320 
00000330 
000003AO 
0C000350 
00000360 
00000370 
000003B0 
00000390 
00000400 
00000410 
00000420 
00000430 
00000440 
00000450 
00000460 
00000470 
000004R0 
00000490 
00000500 
00000510 
00000520 
00000530 
00000540 
00000550 
00000560 
00000570 
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o o r> rv o o 


I 


! 


c 


f.( 1 


DEXPI StJM) 


PARTIAL OF XI AND VI WRI H AND K 

PXPHe 2( l(*«R(A)»fF*Rl‘>)»SF) 

PYPH* 2(n*(B(5l*f.F*R(f)»*SF-l.DO) 
PXPKs Z(ll*IBt7l«CF*MHI*SF-l.nO) 
PYPK= zn )•< B( R )«-CF*R(9)*SF 1 


F 1U( 1 J» CA 
FIU(2)= 2.00*D»CA 
FIU(3)» FIU(?)*SA 
riU(41= SA 

FIU(5»= 3.D0*FU3)/ti 
FIU(6)= FIU(5)*SA 
FIU(7)» .5DO*FH7)/li 
FIO(R»« .25D0*FItR)/l) 

FIU(9)» .200*FJ(9)/n 

C 

F1VJ1)= O.DO 
F1V12I- 0.00 
FIV(3)= U**2*CA 
F1V(4»= U 

FIV(5)= 2.D0*l)**R»SA 
FIV(ft)= FIV(5)»SA»l.b00 
FIV(7J= O.DO 
FIV(BI= 0.00 
FIV(9)= 0.00 
C 

FIW(n« U 
F1WI2I- U**2 
F1W(3)= F!W12)*SA 
FIH(9)s 0.00 
FIW(3)a O.DO 
FlW(6)s O.DO 
FIW(7)s U**.500 
F1W(8»= U**.2500 
FIW(9)= U**,2DO 
C 

SUMS 0.00 
DO 7 1» 1.9 

7 SUM* SUM+AF( I )*F lull I 

SUM= -G( 1 >*SUM/R**3 
C 

PFPXs SUMsXl 
PFPYs SUM*''l 
C 

SUM« 0.00 
DO B 1- 1.9 

H SUMS SUM^AF( I )StFIV( n-Flwm*SA/CA) 

c 

PFPSAs G«1)*SUM*SGN 
C 
C 


OOOOOSRO 

oooonsQO 

ooooofrnn 

POODOMO 

ooonoF>?o 

OOOOOf.30 

000008AO 

OOOOOf.30 

0P0006B0 

00000870 

000006RO 

00000800 

00000700 


I 

I 

I 

I 

■! 


00000710 

00000720 

00000730 

00000780 

00000750 

00000780 

00000770 

000007RO 

00000790 

OOOOOPOO 

OOOOORIO 

000O0R20 

00000B30 

OOOOOP80 

00000P50 

000O0P80 

00000P70 

OOOOORRO 

00000B90 

00000900 

00000910 

00000920 

00000930 

00000980 

00000950 

00000980 

00000970 

OOOC09BO 

00000990 

00001000 

00001010 

00001020 

00001030 

00001080 

00001050 

00001080 

00001070 

OOOOIOBO 

00001090 

00001100 

00001110 

00001120 

00001130 

00001180 
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c 


pnooi 160 


PF(1)« (PFPX«X1*! t'v’Vl)//(n 

OOf'fll lf.0 


onMi= PFi'x*PFP<;4-ir(i i-''|"';a/pi/r 

nnoni i ?o 


Dim?r PF pv + PFP«.A- ( r 1 / ) - y 1 “ S4/R ) /p 

oonoi 1 «o 


PF(2)= D(iM1*PXPm»iiii«;'»pvPi-i 

onooi IPO 


PF(3)= r)l)Ml*PXPK*nliM;'»pvPK 

00001200 


PF ( <> )s PFPS4*( C (■')»y|+C<'*)*Vl)/B 

00001210 


PF(5)= PFPSAPtCl^l^O+ClMy/n/R 

00001220 

c 


00001230 


on 10 l» i,5 

000012AO 

10 

rw i-f n« PFi ; )»s 

00001260 


G(3)= r,( 3)-r,(i )< «.F 

00001 Vf,0 


G(A)* r.('.i-Gi n»CF 

00001270 


r,(i(= r,( 11*5 

000012R0 

c 


00001290 


IF (M.EO.ll RFTURN 

00001300 


F» F2 

00001310 


M» 1 

00001320 


DO 20 I* 1,6 

00001330 

.’0 

H{ I ). G( 1 I 

00001390 


GO TO 5 

00001350 


CNO 

00001360 


c 




r' r 


1 


» 


i 

‘) 


m, 


i 

I 
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C INPIIT/INPUTN 
C 

C NfP ANO HIGH THRUi'i. 

c this subprogram is cauh) bv contl a.nd rfaos ano prints 

C ALL INITIAL DATA AS W^LL AS SETS INITIAL CONSTANTS. 

C THE UNITS ARE BASED UN INTERNAL Mifl.O, INTERNAL DISTANCE 
C UNIT»l EARTH RADII, AND EXTERNAL Mu« 39h601.2 KM«kM*KM/ 

C SE'.*SEC AND EARTH PAOII- N37fl.l#> KM. A CIRCULAR 
C ORBi, AT 1 earth RADII WOULD HAVE A PERIOD OE 2 PI INTERNAL 
C MME UNITS. 

C 1? PE USED WITH 6 DIM. 7ERF. 


C 

IN.'UT 





C 

LUW/HIGH 


hIGH/LOW/h|GH 


c 


INITIAL ORBIT 




C 

A (KM) 





C 

E 





c 

1 (DEG) 





c. 

LUNG. AS'’ 

. NODE (OEGI 

NOT 

USED 


L 

A4G. OF P 

ERGEE (DEG) 

NOT 

USED 


C 


INITIAL GUESSES 




c 

LAMBDA A 


LIKE 

IIPSILON 


c 

LAMBDA H 


LIKE 

‘"‘ALL'S 

K 

c 

lambda K 


LIKE 

SMALL'S 

J 

c 

LAMBDA P 


scale 

FACTOR 


c 

LAMBDA C 


OUMMV 

—NOT USED 


c oesireo final orbit 

C A 
C E 
C I 

C NCOE (NOT USED IF NOP«2) NOT USED 

C PERIGEE (NOT USED IF NOP»2) NOT USED 

C 

C TF2 (OAVS)f GUESS FOR FINAL TIME 
C PKW IKW), POWER 

C SPIM (SEC). SPECIFIC IMPII..SE NEP 


c 

AFO (KG), INITIAL MASS (NEP) 


c 

IRDFLG 

nominal 

c 

1 

END OF INPUT 


c 

2 

iPR, PRINT Flag 

0 

c 

3 

NIMAX, MAX. NO. OF ITERATIONS 

20 

c 

4 

TFMAX2 (OAYSl, MAX. TF 

190. 

c 

5 

0T2 -OAT’S), TIME STEP FOR O.E. 

I. 

c 

6 

UE6, UPPER ERROR BOUND FOR O.E. 

l.DIO 

c 

7 

EW, ERROR WEIGHTS 


c 

R 

UTKM, EQUATORIAL EAP'r. RADIUS 

637R. »6 

n 

9 

uM (KM*43/SEC**2 1 , EARTH GRAV. CONST. 

39 -.’,01. 2 

f 

1C 

NOP = 1, 5 O.E. SnCIFIFO AT TF 

1 

L. 


« 2, 3 C'.E. 'PECli-IE(- AT TF 


C 

11 

SETS OBLATENES* COEF F . A J2. • 1 .08 270-3 

0. 

c 

12 

STEP, STEP SIZE FOR N'lM. OIFF. (5 OIH» 

1.0-6 

c 


KSTEr . D, STEP AS FRACTION IN TER 

0 

c 


= 1, STEP AS Ci'N.STANT IN ITER 


c 

13 

IPO’W « 0, CONSTANT POWfR 

C 

c 


S 1, EXPONENTIAL DEGRADATION 


c 


BB (SEC). TIME CDNSTAM 

l.DT 

c 


PH (KW), HOUSEKEEPING POWER 

0. 

c 

14 

EMPTY 



00(-(.0010 
00000020 
00000070 
oooonOAO 
00000050 
00000060 
C0000070 
OCOOOOBO 
000(10090 
00000100 
ooooono 
00000120 
00C00130 
OOOOOIAO 
00000150 
00000160 
00000 170 
OCOOOlflO 
00000190 
00000200 
00000210 
00000220 
00000230 
00000240 
00000250 
00000260 
00000270 
000002P0 
00000290 
00000300 
00000311' 
00000320 
00000330 
00000340 
00000350 
0000036b 
00000370 
000003BC 
00000390 
00000400 
00000410 
00000420 
00000430 
0000044C 

oconr450 
00000460 
00000470 
000004RO 
00000490 
00000500 
ooooono 
00000520 
0000C530 
OOOOC 340 
OOOf'0550 
00000560 
0000057k 
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A 


* ^ 


1 



« t 


.4 


' { 


i 





c 

15 

IHI » 1. LOW TMflliU (INLY 

1 

00000580 

c 


= 2. Hir.M/inw 


000005<»0 

c 


i 3. Hir.H/Lnw/MKtH 


OOOOONOO 

c 


» <•» LOW/Hif.M 


OOOOOhlO 

c 


nvil (M/SI tot* initial del. v 

0. 

00000620 

c 


OVl. M/SI, i)€. . FOM FINAL impulse 

0. 

00000630 

c 

16 

EMPTt 


000006AO 

c 

17 

FLIM ••'«« LIMIT IN ITER ROUTINE 

1.0-0f> 

00000650 

c 

18 

SON -I., INITIAL LAM I NEGATIVE 


00000660 

c 


= ♦!., INITIAL LALi I POSITIVE 


00000670 

c 




00000680 

c 




00000690 

c 




00000700 



SUBROUTINE INPUT 


00000710 

c 




00000720 



implicit REAL*8(A-H.0-$I, INTEGER ll-Nl 


00000730 

c 




00000740 



namelist /UN/UTKM,uTS,UTO,UTMS2,UTKW 


00000750 

c 




00000760 

c 




00000770 



COMMON /XMMM/7LOt6 1 , STEP(5I, 2ERFC6I 


00000780 



COMMON /ELEM/2PO(SI . 7PF(5) 


00000790 



COMMON /INT/ITF.IPR. iniM, 1DIM7,NIMAX 


OOOOOHOO 



COMMON /TRA/TFMAX.nT.UE8,ew( 101 


00000810 



COMMON /UNITS/UTS.UTM,UTH,UT0,UTKM,0TR,0UMMY,UTKW,UTMS2 

00000820 



COMMON /T/TF,S,TO,TFmIN 


00000830 



COMMON /A/A,AHU,PI 


00000840 



COMMON /WF/WF(5J 


00000850 



COMMON /J2/ AJ2 


00000860 



COMMON /TC/NOP 


00000870 



COMMON /POWER/PKW.CC. AMO.AO,AI,A2,A3,IPOM 


00000880 



COMMON/HIGH/OVI1,OVI?,IHI ,ITR 


00000890 



COMMON /F/FLIM,KSTEP 


00000900 



COMMON /SG/SGN 


00000910 

c 




00000920 



DIMENSION WI5) 


00000930 

c 




00000940 


;nteger constants 


00000950 

c 




00000960 



IHU 1 


00000970 



IDIM>10 


00000980 



I0IM2»5 


00000990 



I0IH3°6 


00001000 



IPRaO 


00001010 



ITF»3 


00001020 



NIMAXs20 


00001030 



NOP* 1 


00001040 



I POM* 0 


00001050 



KSTEP* 0 


00001060 

c 




00001070 

c 

REAL constants 


00001080 

c 




00001090 



AJ2* 0.00 


00001100 



AMU* 1.000 


00001110 



UEB* 1.00*10 


00001 1?0 



00 10 I*1,10IM2 


00001) ;C 



EWII*I0IM2I* 0.00 


00001 uo 




f- 




i 

i 


I 



Q 
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non 


4 


4 ' 


10 

Em I l< 1.000 


0.3001150 


no 12 1«1.1DIM2 


00001 IftO 

12 

STEPm= 1.0-ft 


00001170 


0T2» I. 000 


00001 IRO 


r.M«39flft01,200 


00001190 


UTkm» ft37P.lftDO 


00001200 


OTR» .01 7ft532921> 1994329600 


00001210 


PU 3.1415926535H97932D0 


00001220 


TFMAX2e 190. ODO 


00001230 


TFM1N?= 0.000 


00001240 


T02-0.000 


00001250 


BP» 1.07 


00001260 


OVIla 0.00 


00001270 


0V12» 0.00 


000012R0 


PHa O.DO 


00001290 


FLIHa 1.0-6 


00001300 




00001310 

ALL 

READ STATEMENTS FOLLOW 


00001320 




00001330 


read I5«I001I W 


00001340 


READ (5tl001l ZLO 


00001350 


RcAD (5.10011 WF 


00001360 


SGN= WF(3)-W(3I 


00001370 


IF (SGN.NE. 0.001 SGN= SGN/OABS( SGN) 


000613BO 


READ (5,10011 TF2 


00001390 


READ (6,10011 PKW 


00001400 


READ (5,10011 SP1M 


00001410 


READ (5.10011 AMO 


00001420 

20 

READ (5,10021- IROFlG 


00001430 


IF ((IROFLG. 6T. IP). OR. (IROFLG.lt. in GO TO 200 

00001440 

25 

GO TO (150, 32, 33, 34. 35, 36, 37, 3P, 39, 90, 

41,42,43,44,45,46,47,48) , 

00001450 


1 IROFLG 


00001460 




00001470 

these values are reap only IE INDICATED BY 

IROFLG 

000014BO 




00001490 

32 

READ (5,10021 IPR 


00001500 


IF (IPR.LT.OI GO 10 210 


00001510 


GO TO 20 


00001520 

33 

READ (5,1002) NIMAX 


00001530 


IF ((NIMAX. LT.O). OR. (NIMAX. GT. 50)) GO 

TO 220 

00001540 


GO TO 20 


00001550 

3A 

READ (5,1001) TFMAX2 


00001560 


IF ( (TFMAX2.LT.0.00).0R.(TFMAX2.GT.1, 

)) GO TO 220 

00001570 


GO TO 20 


000015RO 

35 

READ (5,1001) 0T2 


00001590 


IF ((0T2. LT. 0.00). OH. (DT2.GT. 1,03)1 60 

TO 220 

00001600 


60 TO 20 


00001610 

3ft 

READ (5,1001) t‘EB 


00001620 


IF (UEB,LT,0.00) GO 10 220 


00001630 


GO TO 20 


00001640 

37 

READ (5,1003) EW 


00001650 


GO TO 20 


00001660 

36 

READ (5,1001) UTKM 


00001670 


GO TO 20 


OOCO16R0 

39 

READ (5,1001) GM 


00001690 


GO TO 20 


00001700 

AO 

READ (5,1002) NOP 


00001710 


94 



no noon 


4 




•4b£u<b> 4 



IF hnop.lT.oi.op. ('l(■p.r.T.n 1 r,n to ??o 

00001720 


on to ?o 

000017^0 

<•1 

A.I2« 1.OB270-3 

00001740 


on to ?o 

00001750 

<*2 

RFAO (5,10011 (SUP( M.|al,5l 

000017F0 


READ (5,100?) KSUP 

00001770 


IF ((KSTEP.lt. 01. OR. (KSTEP.OT.m 00 TO ?20 

0OOO17HO 


on TO ?o 

00001790 

^3 

REAO (5,100?) IPnu 

0000 inoo 


READ (5,1001) HR, PM 

OOOOIHIO 


88 SHOIJLO FF IN SFCONOS 

00001 R?0 


IF ( ( IP0W.LT.0).(iP. I IPOW.GT. 1 ) ) GO TO ?30 

00001830 


GO TO ?0 

00001R4 

44 

GO TO 20 

00001R5C 

45 

READ (5,100?) IH] 

00001H60 


IF ((IH1.LT.0).0P.( IKI.GT.4)) GO TO 220 

00001870 


NOPs 2 

00001 880 


READ (5,1001) DV11,'>VI2 

00001890 


IF ( 1HI.LT. 3) OVI?= O.OO 

00001900 


IF niHl.EO.D.OM.l 1hl.F0.4)) DVI1» 0.00 

00001910 


GO TO 20 

00001920 

46 

GO TO 20 

00001930 

47 

READ (5,1003) FLIM 

00001940 


IF (FLIM. LT. 0.00) GO TO 220 

00001950 


GO TO 20 

00001960 

48 

READ (5,1001) SGN 

00001970 


IF ((SGN. NE. 1.00). and. (SGN. NE. -1.00)) GO TO 220 00001980 


GO TO 20 

00001990 

00002000 

00002010 

TIME VALUES ARE CHANGFO FROM DAYS TO OTHER UNITS 

00002020 

00002030 

150 

UTS= DS0RT(UTKM*P3/GM) 

00002040 


UTMsUTS/60.00 

00002050 


UTHsUTS/3600.DO 

00002060 


UT0>UTH/24.D0 

00002070 


T0= T02/UT0 

00002080 


TF« TF2/UT0 

00002090 


TFMINb TFMIN2/UTD 

00002100 


TFMAXs TFMAX2/UT0 

00002110 


OTa DT2/UT0 

00002120 


TOl* TO*UTS 

00002130 


TFla TF*UTS 

00002140 


TFHlNla TFMIN*UTS 

00002150 


TFMAXla TFMAX«UTS 

00002160 


OTla 0T4UTS 

00002170 

00002180 

MORE CONVERSIONS 

00002190 


UTMS2= UTKM*I,03/(UTS**2) 

00002200 


UTKWa UTMS2»UTKM/UTS 

00002210 

00002E20 


C= SPIM/UTS 

00002230 


cc-» c*utkm/uts 

00002240 


AA= 2.00*PKW/( AMO*CC) 

00002250 


AAAa 2.00 *(PKW-Ph)/( AM0»CC) 

00002260 


HBla BB/UTS 

00002270 


AOa AA/UTMS2 

00002280 


95 



n n o o o o n 


Als AO/C 
AOAs AAA/UTMS2 
IF IIPOH.EO.I) A]e 
A2« 1.00/BBl 
BB2<> BB1«UT0 
A3- PH/PKW 
C 
C 

C THE PRINTING OF ALL INITIAL VALUES FOLLOWS 
C 

WRITE (6.20001 
WRITE (6.20011 
WRITE (6.2030) 

WRITE (6.2033) 

WRITE (6.2036) 

WRITE (6.2035) NOP 
WRITE (6.20631 0VIl.l)V12 
C 

WRITE (6.2002) 

WRITE (6.2003) 

IF (( IHl.EO.l). OR. ( IHI. 1-0.6)) GO TO 15B 

w(i) IS semihajor axis 

W(2) IS ECC. SET TIl 0 
W(3) IS INCLINATION 

ZLO SHOULD BE YI (UP).Y2 (XK).Y3 (XJ).C.I. 

W(2)° 0.00 
W(6)- 0.00 

WRITE (6.2006) (W(1).I»I.6) 

ZP0(l)s W(1)/UTKH 
ZP0(2)= W(3)#0TR 
WRITE (6.2066) ZPO(l) 

ZL0(5)- 1.00 
GO TO 162 

15B WRITE (6.2006) W 

change from classical O.E. TO EQUINOCTIAL O.E. 

159 00 160 1-3.5 

160 W(l)= W(I)«0TR 
ZP0(1)= W(1)/UTK» 

ZP0(2)s W;2)*0S1NIW(5)+W(6)) 

ZP0(3)= W(2)*0C0SIW(5)+W(6)) 

ZP0(6)s DTAN(W(3)/2.0DO)«DSIN(W(6)) 

ZP0(5)- OTAN(W(3I/2.0DO)«OCOS(W(6)) 

C 

WRITE (6*2005) 

WRITE (6.2006) ZPO 
C 

C WRITE final conditions. CHANGE TO EQUINOCTIAL FINAL CONO. 
C 

162 OVIl- (DVI1/(UTHS2*UTS))*DSORT(ZPO(1)/AHU) 

0V12- 0VI2/(UTMS2*UTS) 

C 

WRITE (6.2006) 

ZPFID- WF(1)/UTKM 
GO TO (165. 170). NOP 
C 


00002290 
00002300 
00002310 
00002320 
00002330 
00002360 
00002350 
00002360 
00002370 
O0O023B0 
00002390 
00002600 
00002610 
00002620 
00002630 
00002660 
00002650 
00002660 
00002670 
000026B0 
00002690 
00002500 
00002510 
00002520 
00002530 
00002560 
00002550 
00002560 
00002570 
000025B0 
00002590 
00002600 
00002610 
00002620 
00002630 
00002660 
00002650 
00002660 
00002670 
000026B0 
00002690 
00002700 
00002710 
00002720 
00002730 
00002760 
00002750 
00002760 
00002 770 
000027RO 
00002790 
0OO02B00 
00002B10 
00002R20 
00002B30 
00002B60 
00002B50 
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165 WRITE (6,?003) 

WRITE (6,200<>> WE 
no 166 1*3,5 

166 WEI 1 )c WEI 1 l«OTR 

ZPE(?)= WEI?)*nSINIwM5)+WF(<,)| 

2PFI3)« WF12)*l)aiS(WM5)*WF|<,) ) 

2PF(6)= OTANIWFO ) /?.onO)«OSII«IWF(<»H 
2PF(5I= DTANIWFI 3)/2.00C)*OCOSlWF(6M 
00 167 1*3,5 

167 WF( I )=WFin/OTR 
WRITE 15,20051 
WRITE (-.,2005) 2PE 
GO TO 190 

C 

170 ZPF(2)s WFI2) 

ZPFI3)* DABSIDTANIWF(3)*nTR/2.00) I 
ZPF(5)= O.DO 
ZPF(5)=0.D0 
WRITE (6,20311 

WRITE (6,2004) (WK!),I*1,3) 

WRITE (6,2032) 

WRITE (6,2004) ( ZPE ( 1) .1*1,3) 

C 

no IF (IHl.EO.l) GO in 194 
WRITE (6,2045) 

GO TO 196 

194 WRITE (6,2007) 

196 WRITE (6,2011) ZLO 

IF ((IHI.GT.1).AN0.( IHI.LT.4)) WRITE (6,2047) SGN 
WRITE (6,200H) 

WRITE (6,2009) TF?,TH,TF 
WRITE (6,2040) SPIM.CC 
WRITE (6,2038) AMO 
WRITE (6,2039) PKW 

IF (IPOW.EO.l) WRITE (6,2041) BP,BB2 
WRITE (6,2012) AAA,A0A 
WRITE (6,2036) AJ2 
WRITE (6,2013) 

WRITE (6,2009) T02,T01,TO 
WRITE (6,2014) 

WRITE (6,2009) TFMIN2,TFM1N1,TFMIN 
WRITE (6,2015) 

WRITE (6,2009) TFKAX2 , TFMAXl, TFM4* 

WRITE (6,2010) KSTEP 
WRITE (6,2011) STEP 
WRITE (6,2016) 

WRITE (6,2009) 0T2,0TI,0T 
WRITE (6,2017) UEB 
WRITE (6,2018) 

WRITE (6,2019) EW 
WRITE (6,2020) IDIM 
WRITE (6,2022) NIMAX 
WRITE (6,2046) FLIM 
WRITE (6,2036) AJ? 

WRITE (6,2026) UTKM 
WRITE (6,2027) GH 
WRITE (6, UNI 


0000?R60 
oono?«7o 
ononzRRO 
00007840 
00002900 
00002910 
00002920 
00002930 
00002940 
00002950 
00002960 
00002970 
000029RO 
00002990 
00003000 
00003010 
00003020 
00003030 
00003040 
O00C3O5O 
00003060 
00003070 
000030R0 
00003090 
00003100 
00003110 
00003120 
00003130 
00003140 
00003150 
00003160 
00003170 
00003180 
00003190 
00003200 
00003210 
00003220 
00003230 
00003240 
00003250 
00003260 
00003270 
00003280 
00003290 
00003300 
COu«i 3310 
00003320 
00003330 
00003340 
00003350 
00003360 
00003370 
00003380 
00003390 
00003400 
00003410 
00003420 
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RETURN 


00003630 

200 

WRITE 16,2023) 

IRDFlG 

00003660 


STOP 


00003650 

210 

WRITE (6,2026) 

I PR 

00003660 


STOP 


00003670 

220 

WRITE (6,20251 

IRDFLG 

00003680 


STOP 


00003690 

230 

WRITE (6,2062) 

I PON 

00003500 


STOP 


00003510 




00003520 

1001 

FORMAT (F25.15) 


00003530 

1002 

FORMAT (12) 


00003560 

10)3 

FORMAT (506.1) 


00003550 


2000 PORMAT (;H1,22X,6SM UPTIRAL TRAJECTORV program for NFP and high TH00003560 

IRUST satellite RAISING) 00003570 

2001 FORMAT ( IHOf <^0X.39H MINIMUM TIME NEPI 000035R0 

2002 FORMAT I 3AH0 THE INIllAL ORBITAL ELEMENTS ARF) 00003590 

2003 format (IHOtlOX.NHA ( KM) ,19X« IHEt20X,7HI I OEG ) , lOX , IPHLON ASC NOOF00003600 

1 (OEG) .NX, 15HARG pEkIG (OEG)) 00003610 

format (1P5D23.1A) 00003620 

format 11H0,6X,1?wA t F ARTH R AO) , 16X , IHH, 22X . IHK , 22X , IMP , 22X , IHQ ) 00003630 
FORMAT (<iOMO THE OFSIoEr FINAL OABITAL ELF“ENTS ARE) 000036AO 

format I32H0 INI1IAI GII^SSEI) PARAMETERS ARE) 00003650 

format (21H0 FINAL TIME ESTIMATE) 00003660 

FORMAT (IH ,10X,lPn^2,l<i,7H DAYS = , IP022 . 15 , lOH SECONDS =, 1PD22 . 1500003670 
1.6H UNITS) 000036BO 

FORMAT (50H0 STEP SWr FOR NUMERICAL 0 1 FFERENT I AT ION , KSTEP »,I2) 00003690 
FORMAT (1P5023.16) 00003700 

FORMAT (22H0 ACCELERATION LEVEL « , 1P025, 15 , 12H M/SEC/SEC =,1P025. 10000371' 


2006 

2005 

2006 
2007 
200R 

2009 

2010 
2011 
2012 

2013 

2016 

2015 

2016 
20)7 
2018 
2019 

2o;o 
2022 
2023 
2026 
2025 
202 6 
202 7 

2030 
2033 
2036 

2035 

2031 

2032 

2036 

2038 

2039 
2060 

2061 


15, 6H G'S) 0000372U 

FORMAT I17H0 INITIAL TIME IS) 00003730 

FORMAT (lOHO TFMIN IS) 00003760 

format ( lOHO TFMAX IS) 00003750 

format (27HO TIME STkP FOR INTE(-RATION) 00003760 

FORMAT (36H0 UPPER ERROR BOUND IIN INTEGRATION s,lP020.10) 00003770 

FORMAT I35H0 ERROR WEIGHTS FOR INTEGRATION ARE) 00003780 

FORMAT (1P10012.6) 00003790 

FORMAT (13H0 DIMENSION »,I5) 00003800 

format (31H0 maximum NUMBER OF ITERATION s,I5) 00003810 

FORMAT (66H0 IROFLG SHOULD BE BETWEEN 1 AND 15, IT IS s,I5) 00003820 

FORMAT (28H0 1 PR SHIIULO BE < 0, IT IS =,I5) 00003830 

FORMAT (27H0 BAD INPUT DATA, IROFLG » ,13) 00003860 

FORMAT I17H0 1 EARTH RADIUS®, F25, 12, 3H KM) 00003850 

FORMAT IllHO MU IGM) =,F25.10,13H KM»*3/SEC**2 ) 00003860 

format I25HO final CONDITION OPTIONS) 00003870 

FORMAT (63H 1. ALL 6 FINAL ORBITAL ELEMENTS SPECIFIED) 00003880 

FORMAT (51H 2. A.E.I SPECIFIED. LON ASC NODE AND ARC, PER FREE) 00003890 

FORMAT I26H FOR THIS RUN. OPTION »,16) 00003900 

FORMAT I1H0,10X,6HA ( KM ) . I9x . 1 hE,20X , 7h1 CDEG)) 00003910 

format (1H0,6X,13hA (EARTH RA|j ) ,9X , 15HS0R T ( H««2+K**2) ,BX , 00003920 

1 15HS0RT(P**2*0««2I ) 00003930 

format I6H0 J2 S.1PD15.7I 00003960 

FORMAT (21H0 1NI1IAL MASS IKG) ®, F18.H) 00003950 

FORMAT I22HO INITIAL POWER IKWI ®, 1P023.16) 00003960 

FORMAT I12H0 SPEC UP =.1P023.16,15h SEC, EXH VEL =,1P023.16, 00003970 

1 5H KM/S) 00003980 

FORMAT I33H0 POWER "EGRATION TIME CONSTANT » , 1P023. 15 ,6H SEC =, 00003990 
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1 






1 P?o, in.'.HOAys 1 

2042 FORMAT ( 3 nHH IJ^OW <;><niaM »»• (1 cu 1 , IPIIWS, 13 > 

2043 Format kital "^tv fow imtiai im/s) =, F?r*,i?,s*, 

1 21 HF 1 NAI (M/Sl =, F 2 n,l?l 

?044 FORMAT ( 2 Vm(. IMIIAI A (i-AUT« lAt'Ill = . J Pl>? 5 . 1 <• ) 

2045 Format (<?mo inpiai r-u- <;<; nm hioh throst, s.f., i.nfi 

2046 format ( 23 M 0 NORM LIMIT IN ITFR * ,IP 012 . 5 I 

2047 format ( 29 H 0 SIGN OF INITIAL lAMROA 1 IS. F'..n 
END 


(>00r.imi0 
oonr'i.n i o 
pr.fif ...vo 

ClOOi' .f'fcO 
oor 04060 
00004060 
00004070 
000040 RO 
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C nuTPC/OUTPCN 


nooonnin 


c 

C MEP AND HIDH THRUST 

C This SUBPROr.RAM writes imp values EDR the EINAL CflNVERDED 
C trajectory. it is called by the MftlN PRUr.RAM contl. 

C TO BE USED WITH B DIM. 7ERE. 

C 

C 

C 

subroutine out pc 
c 

implicit REAL*B( A-H.O-l), INTEGER (I-NI 
C 

COMMON /XMMM/ZLO(SI .STEP(S),ZERE(6) 

COMMON /Z/ZEdO). 07(10) 

COMMON /T/TE.S.TO.TEMN 

COMMON /UNITS/UTS.UTM,UTH.UTD,UTKH,DTR,OOMMY,L'TKW,UTMS2 
COMMON /ELEM/ZPOCjI ,ZPF(S) 

COMMON /WE/WE(S) 

COMMON /A/A. AMU. PI 
COMMON /TC/NOP 

COMMON /POWER/PKW.CC.AMn. AO. A1 .A2.A3.IP0W 
C 

DIMENSION OELZE(S) ,mELWF(5I.WFC(5» 

C 

wFcin» zFm*uTKM 

WFC(2)» 0.000 

DUMMY- ZFI2)**2 + ZF(3)’»*2 

IF (DUMMY, GT.l.OD-AOl WEC ( 2 )=DSORT( DUMMY ) 

WFCI3)- 0,000 

DUMMY- ZF|4)**2 ♦ ZEI5)»*2 

IF (DUMMY. GT. 1,00-40) WEC(3)« 2,ODO*OATAN( OSORT ( DUMMY ) ) /OTR 
WFC(4)-0.D0 

IF ( I OABS( ZF 1 4 ) ) . r,T . 1 . O-B ) . AND. ( DABS! Z F I 5 ) ) ,GT . 1 .0-8 ) ) 

1 WFC(4)= 0ATAN2(ZF(4).7F(5))/0TR 

WFC(5)- O.DO 

IF I (0ABS(ZF(2)).GT.’ .D-0 ) . AND. ( OABS( ZF ( 3 ) ) ,GT. l.O-B I) 

I WFC(5)=0ATAN2(ZF(2),ZF(3))/0TR 
WFC(5)=WFC(5)-WFC(4) 

DO 10 1=1,5 

OELMFI l)s WFC( I ) - WF( I ) 

10 DELZFI I )= ZFM ) - 7PF( I) 

TF2= TF*UTO 
TF1= TF*UTS 

IF (IPOW.EO.l) Bl= DEXPI-A2*TF) 

IF (IPOW.EO.l) RMASS- 1.00*A1*(B1-1.00+A3*A2*TF) 

IF (IPOW.EO.O) RMASS= 1.00-A1*TF 
AMASS- AM0*RMASS 
OELV- -CC*DLOG(RMASS) 

POWs PKM 

IF (IPOW.EO.l) POWs P0W»(B1-A3) 

RPOW- POW/PKW 
C 

WRITE (6,3000) 

WRITE 16.3001) 

WRITE (6.3002) WFC 
WRITE (6,3003) 


OOOl'OOPO 

00000075 

000OO030 

00000040 

00000050 

00000070 

OOOOOOBO 

OOOOOOOO 

oooroioo 
00000110 
00000170 
00000130 
00000140 
00000150 
00000160 
00000170 
000001 BO 
00000140 
00000200 
00000710 
00000720 
00000730 
0000074,-) 
00000250 
00000760 
00000270 
000007BO 
00000240 
00000300 
00000310 
00000320 
00000330 
00000340 
00000350 
00000360 
00000370 
00000380 
00000390 
00000400 
00000410 
00000420 
00000430 
00000440 
00000450 
00000460 
00000470 
00000480 
00000490 
00000500 
00000510 
00000520 
00000530 
00000540 
00000550 
00000560 
00000570 






100 





/ 


20 


3) 


1(10 


3000 

3001 

3002 

3003 
3O0<* 

C3O05 

C 

3006 

3008 

3009 

3010 

3011 

3013 

30K 


WP ITE (6,3002) ) 7F ( I I . I»1 ,81 
WPITE (6,30061 
i^PITF (6,3001) 

IF (NOF.60.1) WRIM- (6,300?) 
IF iNOP.eo.a) wkiit (6,3002) 
C,0 TO (20, 30), NOP 

WRITE (6,3003) 

WRITE (6,3002) OEl/F 
GO TO 100 


0ELZF(2)» 0S0RT( 7M?)**?^7F(3)*»2) 
OELZF) 3)m 0S(JRT( 7F ( <• )'>»2-,ZF (8)«*2) 
WRITE (6,3011) 

WRITE (6,3002) ( OFL 7F ( I ) , I >1 ,3 ) 


nF(.wF 

(rELWF(l),I»l,3) 


-ZPFI?) 
-ZPF( 3) 


WRITE (6,3006) 

WRITE (6,3002) ZLO 
WRITE (6,3008) 

WRITE (6,3009) TF?,TFI,TF 
WRITE (6,3013) «F-4<;«;,RI^4SS 
WRITE (6,3016) P(IW,PP((W 
WRITE (6,3010) DEIV 
RETURN 

FORMAT (35H0 ACTUAL FINAL ORBITAL FLFMENTS ARE) 

FORMAT (1H0,10X,6HA (KM),18X,1H£,20X,7HI t DFG ) , I OX , 1 RHLON ASC 
1 (DEG),6X,18HARG PbRIG (OEG)) 

FORMAT (185023.18) 

(1H0,5X,1VhA (FARTW RAO),16X,1Mh,?2X,1hk,?2X,1hP,22X,1HO) 

(51H0 TME FRPMP in the final n.E. IS (ACTUAL - OESIREO)) 
(60H0 CLASSICAL O.E. MAV HAVE DISCREPANCv OF MULTIPLES OF 


initial guessed 
final time IS) 


parameters ARE) 


FORMAT 
FORMAT 
FORMAT 
10 DEG) 

format (66H0 TME CONVFRGFD 
FORMAT (29H0 THE MINIMIZED 

FORMAT IlH ,10X,IPn?2.15,7H DAYS =,022.15, lOH SECONDS 
IH UNITS) 

FORMAT (18H0 LOW IHRUST DELV=, 1P025. 16,7H KM/SEC) 

FORMAT (1H0,5X,1?hA (EARTH AD 1 , 9X, 15HS0RT t H**2-,K**2 ) ,8X , 

1 15NS0RT(P**2*0*»2)) 

FORMAT (16H0 FINAL MASS =,F22.15,31H KG, FRACTION OF INITIAL 
1=,F22.15) 

format (15H0 final power =, F22.15-.32H KW, FRACTION OF INITIAL 
lER =,F22.15) 

END 


nnooo5«o 
oonf'osvn 
noonoNrio 
CliOOflMO 
00000670 
00000630 
00000660 
00000650 
00000660 
00000670 
000006PO 
00000690 
00000700 
00000710 
CP000720 
00000730 
00000760 
00000750 
00000760 
00000770 
00000780 
000OO790 

onoooHoc 
00000810 
OOOOOH20 
NPOE00000830 
00000860 
00COO85O 
00000860 
O0OOOR7O 
900000880 
00000890 
00000900 
00000910 
,1PD?2. 15, 600000920 
00000930 


00000960 
00000950 
00000960 
00000970 
00000980 
PDW00000990 
00001000 
OOOOlOlO 
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ITER MQONRN 

onoono?o 

00000030 

hVh VERSION 0000(.0«tU 

ooooooso 

SUBROOTlhE I TER( KOliNI ,N I , EUNCT tPRTN I COOOOOhO 

00000070 

implicit RE«L«R( A-H.O-S) OOOOOORO 

00000090 

00000100 

ooooono 

VALUES OF THE INdEPFNPENi VAR I ABLESMNIT T AL .CURRENT ,M NAD OPOOOOOI20 

.:S STEP SIZE TO PERTURB y;S TO COMPUTE PARTIAL DERIVATIVES SPOOOOOI30 

' VALUES OF THE OEPEN >NT VAR I ARLES (CURRENT ,F INAL ) OPOOOOOIAO 

COMMON/ XMMM/ X(S),XSISI.Y(6I 00000 ISO 

COMMON /INT/ITF,1PR.1(y1M.I0IM2.MAXN0I POOOOI60 


COMMON /T/TF.S.TC.TFmin 
COMMON /OY/ 0V0T(6) 

COMMON /HIGH/nvI1.0VI2,IHI,ITR 
COMMON /F/FLIM,KS1E? 

C 

DIMENSION VN0M(6) .XN(S) .P(6,f>).C0EF( 

NeS 

M«6 

I NORMS I TF 

Iflal 

ICONS* 1 

1SW30 

N I 

KOjNTsO 

ITRoO 

CALL FUNCT 
ITF-3 

KOUNTsKOUNTtl 
F0*0*00 
00 IS I«I,M 
IS F0»F0+Y( I I**? 

9 00 16 Isl.N 
OVOTNI I |n OVOT( II 
XN( I l>XI II 

16 VNOM( I l*vm 
YNOHIMIs yIMI 
OYOTNIMl* OYOTIMI 
TFN-TF 

10 CALL PRTNIKOUNT.NI I 
WRITE(6.10Il)F0 
IF(FO.LE.FLIM|r,0 TO 90 

IF (NI.GT.MAXNOI ) 00 TO BO 
IFI ISW.NE.OIGO TO 27 
C COMPUTE NUMERICAL PARTIAL OFRIVATIVES 
DO 17 IsI.M 
17 P( I.M)» DYOTI 1) 

WRITE (6*10131 
00 25 JsI.N 
1TR»J 
TEMPaXlJt 

STEP«XS(JI*DABS(X( Jl I 


OOOOOI70 

OOOOOIRO 

00000190 

00000200 

00000210 

.0VDTN(6» 00000220 

00000230 

00000240 

OOOC02SO 

00000260 

00000270 

000002R0 

000002''0 

00000300 

00000310 

00000320 

00000330 

00000340 

000003S0 

00000360 

00000370 

OOOOOSBO 

00000400 

00000410 

00000420 

00000430 

00000440 

000004S0 

00000460 

00000470 

000004RO 

00000490 

ooooosoo 

00000510 

00000520 

00000530 

00000540 

ooonosso 

OOOOOS60 

00000570 
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tF ( ( x( j» 1 .1 1 . > - I'-it I .n«. 11 »'.TFP*x^iji 

C IF (l)AMS( x( J1 I.Ll . 1 .It-ini ViKITf 

X(ji*xui + STEP 
CALL KINCT 
MHITE(6«1000)X( J) 

HR1TE(6,1001HV( 1 ),!«), M| 

00 20 1-1. M 

2C P( I,J) = (vn )-YNOM( I M/5TEP 
25 XU). TEMP 

xnUNT.KOUNT+N 
27 WR1TE(6.1C02I 
DO 30 Is'fM 

WRITEI6«1001HPI I.JI.J.l.M) 

30 CONTINUE 
00 35 i.l»M 
35 COEFI 1 ).-VNOM( I 1 

CAI L DCROUT(P,CnE<^. 'i-T ,O.DO,M,1,1NOI 
IF( INO.NE.Oir.O TO »•'? 

WRITE (6,10151 0E1 
no AO I. 1,M 

40 IF (DABS(COEF( I 1 ) .1 T . 1 .0-10) COEFin- 0.00 
WRITE(6,1003»(C0FM I I.I.l.N) 

SN= COEFIMI 
WRITE (6,10121 SN 
00 50 J.1,N 
50 X( JI.XNlJKCOEFl Jl 
TF»TF.4+SN 
IHALV.O 

51 IF ( INOP.M.EO.l I IIF.l 
ITRoO 

CALL FUNCT 
ITF.3 

KOUNT«KOUNT*l 

Fl.0.00 

00 52 I»1,M 

52 F1.F1*V(I)**2 
WRITE(6,1010|F1 
IFIFI.lT.FOIGC TO 55 
WRITE(6,100Bi 

IF( IHALV.E0.8IG0 TU 95 
IHALV.IHALV4 1 
DO 53 J.1,N 
coeFiji.coeF(ji/2.nn 
WRITE(6,1000ICOEF(JI 

53 X(J)«XN( J)-fCOEF(J) 

SN-SN/2.000 
WRITE (6.1C12I SN 
TF»TrN*SN 

GO TO 51 

55 IF(NI-MAX' J1 )70,‘<0,''0 
70 Nlr!Nl4l 
ICONS.Nl 
FO-Fl 

SUMOXnO.DO 
00 76 J>1,M 

76 SUMOX»COEF(JI**2+SUM0X 
00 77 I«1,M 


or>ooo5RO 

non(,ns‘>n 

0000060(1 

00000610 

00000620 

00000630 

00000640 

00000650 

00000660 

00000670 

000006BO 

00000690 

00000700 

00000710 

00000720 

00000730 

00000740 

00000750 

00000760 

00000770 

000007BO 

00000790 

OOOOOROO 

OOOOORIO 

OOOOOR20 

OOOOOB30 

OOOOOB40 

OOOOOR50 

OOOOOR60 

00O00R70 

OOOOOR80 

00O00R90 

00000900 

00000910 

00000920 

00000930 

00000940 

0000095C 

OU000960 

00000970 

000009BO 

O0'*O099O 

00001000 

OCOOlOlO 

0000102C 

00001030 

00001040 

00001050 

00001060 

00001070 

OOOOIOBO 

00001090 

00001100 

OOOfllllO 

00001120 

00001150 

00001140 
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00 77 J«1,M 

00001150 


p« 1 . j)»p( 1 . j)*( v( n»cn(-K . 1 ) )/soynx 

00001160 

T7 

CONTINOE 

00001170 


ISHbI 

00001100 


GO TO 9 

00001190 

80 

NI»9999 

00001200 


WR|TE(6tl006) 

00001210 

C 

PRINT 1006 

000012 0 


RETURN 

00001230 

85 

Nl«9999 

00001240 


MRITE(6.1007) 

00001250 

C 

PRINT 1007 

00001260 


RETURN 

00001270 

90 

WR1TE(6,1005)F0 

00001280 

C 90 

PRINT 1005, FO 

00001290 


RETURN 

00001300 

95 

IFINI.EO.l.OR.IR.FO.lO.OR.lCONS.NE.NDGO TO 100 

00001310 


ICONS" lCONS+1 

00001320 


IRal8*l 

00001330 


00 96 Ja 1,N 

00001340 


OVDTUJn OVOTN(J) 

00001350 


X( J)a XNU) 

00001360 

9o 

V(JI« YNOH(J) 

00001370 


V(M»« YNOM(M) 

000013PO 


TF« TFN 

00001390 


OYOTIMla OYOTN(H) 

00001400 


ISH>0 

00001410 

C 

PRINT 1004 

00001420 


WR1TE(6, 10041 

00001430 


30 TO 10 

00001440 

100 

Nl-9999 

00001450 


WRITEI6, 10091 

00001460 

c 

PRINT 1009 

00001470 


RETURN 

00001480 

1000 

FORMAT! /IX, 1P023. 151 

00001490 

1001 

F0RMAT(lX,lP5023.15) 

00001500 

1002 

FORMAT! 21('0PARTUl OFRIV MATRIXI 

00001510 

1003 

FORMAT! 11H0DEU.;S ARE/ 1 IX , 1P02S.151 > 

00001520 

1004 

FORMAT! 35HOFORM NEW PARTIAL OERIVATIVE MATRIX) 

00001530 

1005 

FORMAT !4HOFO»,1PH22.1 5. 73HC ASF CONVERGED... FERTIG) 

00001540 

1006 

FORMAT! 3RH0EXCEE0E0 MAXIMUM NUMBER OF ITFRATIDNSI 

00001550 

1007 

FORMAT! 16H0Mi>TR IX SINGULAR 1 

00001560 

1008 

FORMAT! IIHOGELX IS ARF ) 

00001570 

1009 

FORMAT !19HOHETHOO CANNOT WORK) 

0000158C 

KUO 

F0RMAT!4H0Fla,lPn23.15) 

00001590 

1011 

F0RMAT!4H0F0o, 1P0;>3.13 1 

00001600 

1012 

FORMAT !10H0 OEL TF «.1P023.15) 

00001610 

1013 

FORMAT !40H0 X!I)*OXin FOLLOUEO -lY CORRESPONDING Y) 

00001620 

1014 

FORMAT !24H0 X!II-0. SO OX!I)aXS!ln 

00001630 

1015 

FORMAT !15H0 OETERmINENT a,lP023.15) 

00001640 


END 

00001650 
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C PBTM/PRTMN 
C 

c This program is callfd ihf iii-RATriH ano prints 

C (tSFO WITH 6 niM. V. 

c 

c 

SUBROUTINE PRTNiKnuNI ,NOn 

c 

IMFLtClT REAL»Bt A-m.ii-h 
common /XMMM/X(5) .XS(%) .Y(6I 
COMMON /T/TF,S*Tn.TPM1N 
C 

N>S 

M>6 

WRITE (6,10001 

WRITE (6,1001) NOI.KOIINT 

WRITE (6,10021 

WRITE (6,1003) (X(J).J.l.N) 

WRITE (6,100A) 

WRITE (6,1003) (V(J|.J»1,M) 

WRITE (6,1005) TF 

1000 FORMAT (2AH0 ITFP NM. TRAJ. CAULS) 

1001 FORMAT I1H0,16,5X,I6» 

1002 FORMAT (2H0X) 

1003 FORMAT ( 1 X, 1P5023. 15 ) 

100- FORMAT (2H0Y) 

1005 FORMAT (5H0 TF« , 1 P026. 16 ) 

RETURN 

END 


00000010 
00000020 
00000050 
00000035 
OOOOOOAO 
00000050 
00000060 
00000070 
00000075 
OOOOOOPO 
000000R5 
00000100 
00000104 
000001 OR 
00000110 
00000120 
00000130 
00000140 
00OO0150 
00000160 
10000165 
00000170 
OOOOOIRO 
OoooniRO 
00000200 
00000210 
00000215 
00000220 
00000230 
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C 0CRnuT/DCR0llT3 6 OIM. 



SUBROUTINE DCROUl 1 A& .R ,l>. EPS .N I ,M , INO) 

ooonooo 


DOUBLE PRECISION 4 ,k . li,EPS, T , S, P ,0T , A4 

0000000 


DIMENSION A(6,M.M(6.I ).AA(6,M 

ooonooo 

5 

INOaO 

36110050 


N>NI 

361 10060 


DO 6 Isl,N 

OOFOOOO 


00 6 Jsl.N 

0000000 

6 

Al I«J)«AA( I,JI 

0000000 


IE(MI10,25,25 

3611OOR0 

10 

N>N 

36110090 


00 20 1-1. N 

36110100 


00 15 J-l.N 

36110110 

15 

R( I tJI-O.OO 

ooonooo 

20 

R( i.n-i.oo 

0000000 

25 

IC=0 

36110140 


Il-O 

36110150 


T=DABS(A( 1.1) I 

36110160 


00 35 1-2. N 

36110170 


IE(T-0ABS(A( l.in 130.35,35 

361101fl0 

30 

II-I 

36110190 


T-DABS(A( I.n I 

36110020 

35 

CONTINUE 

36110210 


IE( I I 140.65.40 

36110220 

<►0 

IC-lC+1 

36110230 


IF(M)45,55.45 

36110240 

<.5 

00 50 J»1.M 

36110250 


S»R(1.J) 

36110260 


R( l.JI*R( 11. J) 

36110270 

50 

R( II.JI-S 

36110280 

55 

00 60 J-l.N 

36110290 


S-AII.J) 

36110300 


A( l.JI-AI II. Jl 

36110310 

60 

A( Il.JI-S 

36110320 

65 

P»AH,l) 

36110330 


IF (OABS(P)-EPS 170.70.75 

36110340 

70 

IND=1 

36110350 


D-O.OO 

0000000 


GO TO 200 

36110370 

75 

00 80 J-2.N 

36110380 

80 

A( l.JI-AI l.JI/P 

36110390 


1F(M)85.95.85 

36110400 

85 

DO 90 J-l.M 

36110410 

90 

R(1.J)-R(1.J)/P 

36110420 

95 

00 170 K=2.N 

36110430 


KMsK-1 

36110440 


T--1.00 

0000000 


DO 105 1-K.N 

36110460 


DO 9ft J=1.KM 

36110470 

9ft 

AM.K )-A(I .KI-AI 1 ,J)*A(J.K) 

361104R0 


IF(T-DABS( A( I.K) ) I 100,105.105 

36110490 

100 

T-OABS(A( I.K) 1 

36110500 


II-I 

36110510 

105 

CONTINUE 

36110520 


1F(11-k)110.135.110 

36110530 

110 

IC-IC+l 

36110540 


IFIMIllS. 125.115 

36110550 
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115 on 120 J»1,M 
S>R(K,JI 
R(K,J>«R( II.Jl 
120 R( I1,J1*S 
125 00 130 J«1«N 
S>>A(K«JI 
A(K,J|>A(1I,J| 

130 At II,JI«S 
135 OTsA(K.K) 

IF(0ABS(0T»-EPSI/0,/0,lA0 
140 P=P*OT 

1FU-N11A5,155, 1A5 
1A5 KP=K+1 

00 150 JsKP,N 
DO lAP |sl*KH 

lAR A(K,J)=A(K«J)-A(K, I )«A( I,J| 

150 A<K,J|sA(K,JI/OT 
155 IFIMII60. 170,160 
160 00 165 J=1,M 
DO 162 1>1,KM 

162 R(K, J)=RU, Jl-AIK, I »*R( I, Jl 
165 R(K,J)=R(K,J»/OT 
170 CONTINUE 

1F(M00( 1C.2 1)175.1 BO. 175 
175 P=-P 
IBO 0»P 

IF(M)1B5,200,1B5 
165 lIsN 

00 190 Ks2,N 
KPsII 
IIelI-1 
DO 190 J>1,M 
DO 190 laKP.N 

190 R( II,J)sR( II. n«R( I,J) 

200 RETURN 
END 


36110560 
T61 10570 
3611O5B0 
36110590 
361 10600 
36110610 
36110620 
36110630 
3M106A0 
36110650 
361 10660 
36110670 
361 106B0 
36110690 
36110700 
36110710 
36110720 
361.10730 
36110760 
36110750 
36110760 
36110770 
361 1C780 
36110790 
3M10H00 
36110R10 
3611OB20 
36110B30 
36110R60 
36110B50 
36110B60 
36110B70 
36110BB0 
36110890 
36110900 
36110910 


C TKAJ/TftAJPKN 
C 

C MPP AND HIGH THBUST. 

C This P0UT1N6 SETS UP IMP lA'PllT TO THf INTEGRATOR WHICH 
C EXTRAPOLATES THf TRAjfr.TORY PROM INITIAL TIMF TO 
C PINAL TIME. IT At ^0 --vAHiATbS THE CHANGE IN TP AND 

c the error in The final conditions. 
c this program is called by iter or by control 

C MIN J. MAX H. 

C f> DIM. ZERF. T.c. OPTIONS. 

C NOP = l— ALL 5 final O.E. HXEO, -Z— A.E.l ONLY FIXED. 

C DYDT USED ONLY IF ITR= 0 
C IHI* 1 NO HIGH THRUST 
C =22 INITIAL IMPULSES 

C =32 INITIAL AND ONF FINAL IMPULSE 

C = 4 FINAL IMPULSE 

C WHEN IHI=2 OR 3, ZL0I5I AND ZERFISI ARE DUMMIES. 

C 

C 

SUBROUTINE TRAJ 
C 

implicit REAL*ni A-H.O-S). integer Il-NI 
C 

COMMON /XMMH/ZLO(S) . DUMMYIS), ZERFI6I 
COMMON /TRA/TFMAX. 010. UEB, EWIIO) 

COMMON /Z/ZUOl, DERZIIOI 
COMMON /INT/ITF. IPR. lOIM, IDIM2. NIHAX 
COMMON /T/TF, SO, TO, TFMIN 
COMMON /ELEM/ZPOIS). ZPPI5) 

COMMON /0Y/0VDT(6) 

COMMON /TC/NOP 

COMMON-/POMER/PKW,CC.AMO,AO,AI,A2,A3*IPOM 
COMMON /A/A, AMU, PI 
COMMON /HIGH/0VI1,0VI2,IH1,ITR 
COMMON /F/FLIM.KSTEP 
C 

EXTERNAL FUNCT, OUTP 

DIMENSION PRMTIS), AIIXIR.IO), OPISt, ZSI6) 

C 

IF I (IHI.EO.II.OR.I IHI.FO.4)) GO TO 9 
IF IITR.NE.I) GO TO 4 
DO 3 1^1,6 

3 ZSm= ZERFin 

4 IF IITR.E0.4I 60 TO 70 
IF I ITR.E0.51 GO TO hO 

C 

c HIGH thrust 
C 

UP» <PI/2.001*ZL0( n/OSORT( I.00+ZL0m»*2) 

CUP» DCOSIUPI 

XK» CUP*( ,7500*.?500«7LO(?)/OSORT(I.OO*ZLOI2»**2M 
OUMx ( I.OO-»CUP»XK I«l'SORT( ICUP-XKt/(CUP4XKI) 

XJ= 0UM*ZL0I3)/0S»RT( I.00+ZL0I3I*P2» 

JMn 2 

CALL MAINE(O.OO.O.Dn.XK,UP,XJ,I.OO,I,JM,DP,DVin 
CALL OUTHlUM.PI.ZPOt 1 1 ,ZP0(2),0.00,IPR,Z,I0IM2I 
DO S In l,I0IM2 


00000010 

00000020 

00000030 

00000040 

ooooooso 

OOOOOOPO 

00000070 

OOOOOOHO 

OOOOOOPO 

OOOOOlOO 

OOOOOUO 

00000120 

00000130 

00000140 

00000150 

00000160 

00000170 

OOOOOIRO 

00000190 

00000200 

00000210 

00000220 

00000230 

00000240 

00000250 

00000260 

00000270 

000002B0 

00000290 

00000300 

00000310 

00000320 

00000330 

00000340 

00000350 

00000360 

00000370 

000003BO 

00000390 

00000400 

00000410 

00000420 

00000430 

00000440 

00000450 

00000460 

00000470 

000004R0 

00000490 

00000500 

00000510 

00000520 

00000530 

00000540 

00000550 

00000560 

00000570 
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o o o o o o o o o o non ooo ooo o o n 


.,14; j 


i . 


5 Zd-^loiMzir 2Lni<*i«;( i + 


Ner* 


9 PRMT(1>« TO 
PRHT(?»<! TP 
PRMTOJ* OTO 
PRMT(4)s UEB 

Z IS A VECTOR OF STAlfc AMO COSTATE 

IF ( ( IHI.eo.?).OR. (IH| .FQ.3M r.O TO 15 
DO 10 I=1«I01M? 

Z( 1 )>ZP0( I ) 

10 Z( UIDIM2)s ZLOl I ) 

EW ARE ERROR WE ir.HTS— INPUT TO THE INTEGRATOR 


15 

zo 


00 20 UltlDIM 
DERZI 1 )«EH( 1 1 


FOR ITF LT 3 USE NORM CUTOFF CONOITION 
IF (ITF.LT. 3 ) TF=TFMAX 
CALL THE R-K INTEGRATOR 

CALL ORKGSI PRMT.Z.DFPZt 101 M,lHLFtFUNCT, 0 UTP,AUX) 
IF (IHLF.GT.IOI GO TO 100 


Z IS NOW THE FINAL O.E.. 

ZERF The ERROR IN ThL FINAL CONDITIONS 


HsO.DO 

DO 30 I=ltI 0 IM 2 
H« H + Z( I> 5 )« 0 ERZt I I 
ZERF( 6 )s H - 1.00 
IF (IHI.LT . 31 GO TO 35 


FINAL impulse 

PSI* (Z( 3 )*Z( 7 )- 7 t 2 )* 7 («n» 1 . 0-3 

PSIOOTs 0 ERZ( 3 )«Z(T )-»Z ( 3 )«OERZ( 7 I-Z ( 2 I* 0 ERZ ( ft ) -OERZ ( 2 )*Z I B I 
PSIOOTa PS 100 T* 1 . 0-3 
CALL 1 MPLS( 0 VI 2 . IPR. 1 TR. 2 . 0 ERZ*I 0 IM 2 > 

C 

C final CONDITION OPTION BRANCH 
C 

35 60 TO (<» 0 , 50 )« NOP 

C 

40 DO 45 I»ltlOIM 2 

ZERF( I I. Z( II -ZPF( I I 
45 OYOT( 1 1> OERZ ( 1 1 
GO TO 55 
C 

50 ZERFI ll« Zm - 7 PF( 1 1 

OUMln OSORT(Z( 2)««2 ♦ Z( 31 ** 2 I 


OOOOOSftO 
00000540 
OOOOOAOO 
OOOOOMO 
OOOOOG20 
OOOOOf.30 
OOOOOB40 
OOOOOf.50 
00000460 
00000670 
000006R0 
00000640 
00000700 
00000710 
00000720 
00000730 
00000740 
00000750 
00000760 
00000770 
000007RO 
00000740 
OOOOOBOO 
OOOOOfllO 
0O0OOB20 
OOOOOPRO 
00000 .. 0 
00000850 
00000860 
00000870 
00000880 
00000840 
00000900 
00000910 
00000920 
00000930 
00000940 
00000950 
00000960 
00000970 
00000980 
00000990 
00001000 
00001010 
00001020 
00001030 
00001040 
00001050 
00001060 
00001070 
00001080 
00001090 
00001100 
00001110 
00001120 
00001130 
00001140 
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non r> r> o n r> r> 


7ERFC?». OliMl - 7PF(?) 

DUM2« OSORTI 7(4)»«7 ♦ 7(^l#*2) 

7ERFOI* I1UM2 - 7PFI3I 

7£RF(4»* (7<3I*7»>I - 7(?l*2(fl»»*l.D-3 
7ERF(3J« <7(5I*7(9I - 7 ( <• I *2 (1 0 1»* 1 ,0-3 
OYOTUM 0ER2(1I 
0V0T(2)e O.DO 
0Y0T(3i« 0.00 

IF (Dl)Ml.GT,1.0-<.0) 0YC1(2)» ( 7 ( 2 l•DER^ ( 2 ) ♦ 7 ( 3 I •OERZ t 3 > ) /OuMl 
IF (0UI32.GT.1.0-<>0I I)Y0T(3)» I Z ( 4 »«>0ER7 ( ♦ Z 1 5 > *r)ERZ ( 5 I) /0UM2 

0Y0TI4)= OERZ(3)«7( M +7 ( 3 ) *0ERZ ( 7 I-OERZ ( Z ) *Z I H »-Z ( 2 ) *I)ERZ ( R I 
DY0TI4I»0Y0TI4)*1 ,0-3 

DY0T(5I= 0ERZI5)«7 I9I*7( 3)*0ER2( 9)-0ERZ«4)*Z< 10 l-Z ( 4 » *DERZ UO) 
0Y0T(5).0Y0TI5)41.0-3 
IF ( iHi.EO.n GO TO 55 
IF (IH1.E0.4) GO TO 52 
C 

OUMMY 

ZERFI5)= ZLOI5I-1.00 

0Y0T(5)s 0.00 

IF I IHI.LT.3) GO 10 53 

52 ZERF(4)= PSI 
DYDT<4)« PSIOOT 

53 IF IITR.GT.O) REUIRN 

00 54 1= 1,6 
5 • ZS(I1« ZERFdl 

55 IF ( IPOW.EC .1 GO TO 60 
A4. l,00-‘ *TF 
0V0T(6)b A1*H/64 
RETURN 

60 Bl= 0EXPI-A2*TF) 

(S4= 1.004A1*(B1-I.00*A2*A3*TFI 

nY0T(6)= A2*H*t-91/(Bl-A3)+Al*«Bl-A3I/A4) 

RETURN 


70 00 75 1= 1,3 

75 ZERFII!' ZSm 

OUMa Y(41 

IF (K. .cP.EO.OI OllMa 01IM*ZL0(41 
ZEF''{4)= ( 1.00+01)M)«7SI4) 

7 FRF( 5 )« 2 S( 5 I 

.tRFI6)= ( r.OO*OIIM)«(7SI6» + l,00)-l,00 
RETURN 
C 

or 85 la 1,6 
P 5 ZiRFIIlB 2 Si;i 

ZERF(5I« ZS*51+0UMMYI5I 
RETURN 
C 

100 I" I HLF.eo.llI WRITE (6,10001 


00001150 
00001160 
OOOOl 170 
000011 RO 
00001190 
00001200 
00001210 
00001220 
00001230 
00001240 
00001250 
00001260 
00001270 
000012BO 
00001290 
00001300 
00001310 
00001320 
00001330 
00001340 
00001350 
00001360 
00001370 
000013R0 
00001390 
00001400 
00001410 
00001420 
00001430 
00001440 
00001450 
00001460 
00001470 
00001480 
00001490 
00001500 
00001510 
00001520 
00001530 
00001540 
00001550 
00001560 
00001570 
00001580 
00001590 
00001600 
00001610 
00001620 
00001630 
00001640 
00001650 
00001660 
00001670 
00001680 
00001690 
00001700 
00001710 


no 


IF iihlf.fo.)?) wpnh i^-.ipon 
IF IIHLF.F0.13) WMIIF (f>.100?) 
STOP 


npooi7?o 
00001730 
00001740 
OOOOl 7S0 


1000 FORMAT ( hflHO TmF NO-MFH OF BISFCTIONS OF ThF ORIO-KjAI INCRFMENT HA000017H0 

IS EXCEEDEO 10) 00001770 

1001 FORMAT I?7HU !NH1AL INCREMENT IS ZERO) 000017B0 

1002 FORMAT 1 54H0 INl'lAL 11MC«EMENT HAS WRONG SIGN OR BODNUS ARE WRONG 100001 790 

END OOOOIROO 
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1 


t ‘ 


OIJTP/OUTPN 

NEP 

this is the OUTP PROr.PAM FOP The 

INTEGRATOR— FIXED GOESS TIME ONLY IITF«3» 


SUBROUTINE OUTPIT .2 .OERZ . IHLF, lOI M.PRMTI 

implicit real*r«a-h.o-»i. integer II-NI 

COMMON /UNITS/UTS.OIM,UTH,UTPtUTKM»DTR,0UMMVtUTKW,UTMS2 
COMMON /INT/ITF, IPR. 10. I DIM?, NI MAX 
COMMON /POWER/PKW.CC. AMO,A0.Al,A2,A3,IP0W 
COMMON /A/AtAMUtPI 

DIMENSION PRMT(S). Z(IO). DERZ(IO). WIS) 

IF (1TF.NE.3) GO 10 10 
IF ( IPR.EO.O) RETURN 
IF CT.EO.PRMTtin N = 0 
IF (T.EO.PRMTdM M=0 
N»N*1 

IF ( t T.LT.I ,99999994<J900’»DFL0AT1M)*( PRMT I ?)-PRMT ID) /PFLUAT ( I‘»R )l 
1 .ANO.(lHLF.Ll.in.AND.IT,LT,(.99999999900»P«MT(2)m RETURN 

M=M-»1 

ts=uts*t 

TMsUTM*T 
TH=UTH*T 
TO=UTO*T 
IF (IPON.EO.n 
IF (IPOM.EO.l) 

IF (IPOW.EO.OI 
DV= -CC*OLOG(RMASS» 

AMASSs AMOPRMASS 
POWs PKW 

IF (IPOW.EO.l) POM» (B1-A3)*P0W 
ThR= 2.00*P0U/CC 
AAs THR/AMASS 
Hb 0.00 
00 5 1=1.5 

H= H + Z( 1*I0IM2)*0ER?( n 
H(l)= Zm*UTKM 
W(2I«0.D0 

DUMMV=Z(2I**2+Z(3»*«2 

IF (DUMMY. GT.l.D-AO) W( 2 I =DSORT t DUMMY J 
W(3)=0.D0 

0UHMY«Z(4»**2 ♦ ZI5)**2 
IF t0UMMY.GT.1.0-<.0) W(3) 

W(4|=0.00 

IF (IZ(9).NE.0.OO».nR.(ZC5>.NE.O,O0)» W(4)« 

U(S)= 0.00 

IF ((Z(2).NE.O.OO).OR.(Z(3).NE.O.DOn W(5)= OAT AN2 (Z ( 2 ) .Z ( 3) ' /DTR 

W(5I=W(5»-W(Al 

I0*IM3=IDIM2-»1 


Bl= nEXP(-A2*T) 

RMASS= 1.00^A1*<B1-1.D0+A3*A2*TI 
RMASS= l.DO-Al*T 


2.D0*0ATAN{DS0RTlDUMMYn/0TR 

OATAN2(ZIA),Z(5n/OTR 


C 

C 


oooonolo 

00000020 

00000030 

00000040 

00000050 

OOOOOOfcO 

00000070 

OOOOOORO 

00000090 

00000100 

00000110 

00000120 

00000130 

OOOOOIAO 

00000150 

00000160 

00000170 

OOOOOlRO 

00000190 

00000200 

00000210 

00000220 

00000230 

100000260 

00000250 

00000260 

00000270 

000002RO 

00000290 

00000300 

00000310 

00000320 

00000330 

00000340 

00000350 

00000360 

00000370 

000003RO 

00000390 

00000400 

00000410 

00000420 

00000430 

00000440 

00000450 

00000460 

00000470 

00000480 

00000490 

00000500 

00000510 

00000520 

OQ000530 

00000540 

00000550 

00000560 

00000570 
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WRITE (6.I001I 


ooonosRO 


WRITE <f.,1002) 

WRITE (6,1003) T. TS. TH, TO, DV, N 
WRITE 16,1006) 

VRITE (6,1005) l?( n.lsNiniM?) 

WRITE (6,1005) W 
WRITE (6, 1013) 

WRITE (6,1012) AM ASS. ROW, THR. A A 
WRITE (6,1006) 

WRITE (6,1005) (7(1 ).I»10IM3,iniM) 
WRITE (6,1007) 

WRITE (6,1005) iOER/l I ).I = 1,!0!M2) 
WRITE (6,100P) 

WRITE (6,1005) (rER7(l ).l=lniM3,lniM) 
WRITE (6,1009) 

PERsa.OO^RI^DSORI (7(1 )**3/AMIM«llTH 
APb W( 1 )«( 1.00-»W(?) ) 

PEs W( 1 )*( l.D0-W( 2) ) 

WRITE (6,1010) H. RI-(<.PE,AP, IHLF 


OOO'^OSQn 

00000600 

000006)0 

00000620 

00000630 

00000640 

00000650 

00000660 

00000670 

000006RO 

00000690 

00000700 

00000710 

00000720 

00000730 

00000740 

00000750 

00000760 

00000770 


RETURN 

10 WRITE (6,1000) 

STOP 

1000 FORMAT (56H0 ITF MUST EOUAL 3--1.E. NEED FIXED ESTIMATED F 
IE) 

1001 format ( 70H0 

1002 FORMAT (5H T IME , 1 OX . 1 OHT IME UNI TS, 15X , 7HSFCr)NDS,9X 
1 ,5HH0URS, llX,4HliAVS,9X,flHitV (K/S),10X,1HN) 

1003 FORMAT ( 1 P2D25. 7 . 1 P3D > 5. 7, 19 // ) 

1004 FORMAT (60H0 THE ORBITAL ELEMENTS ARE (EO. FOLLOWED BY CL. 
1 OEG)) 

1005 FORMAT ( 1P5022.12// ) 

1006 FORMAT (16H0 THE COST ATE IS* 

1007 FORMAT (45H0 THE HER I V 1 T 1 VE I OF THE ORBITAL ELEMENTS ARE) 
)OOR FORMAT ( 34H0 THE DFRIVITIVE OF THE COSTATE IS) 

1009 FORMAT ( 1H0,7X,11hhaMLT0n: \N,8X,12HPERI0D (hRS),7X, 

1 12HPER1GEE (KM) .9X,11HAP0GEE ( KM ) , 5X , 1 4HD I V. TIME STEP) 

1010 FORMAT (2F20.12,lP2i'20.10,r»//) 

1012 FORMAT (1P4D22.12) 

1013 FORMAT (9X,9HMASS ( KG) , 12X , lOHPOWER ( KW ) , 12X , lOHTHRUST (N) 
1 8X,19HTHRUST ACC (M/S**2)) 

END 
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C FUNCT/FUNCTN 

c 

C NFP 

C this SUBRniJTlNe IS AN INTFfrFACF B6TWE6N THE IMTEr-PATOR RDllTINr- 
C ANO The OUADRATHRF Rl’KTlrF. 

C THIS ROUTINE ARDS ThF EFFECT OF OBLATENESS (J2> TO THE OER!V. 

C OBLATE CALCULATES THE EFFECT OF j?. RETURNED AS D2J2, 

C 2 IS A VECTOR OF THE AVFRAr.FP STATE AND COSTATE 
C DER7 IS the averaged OERIVITIVE OF 2 

C -PI ANO PI AND THE LIHITS OF INTEGRATION IN THE QUADRATURE 
C 10 IS the dimension tIF 2 
C 
C 
C 

SUBROUTINE FUNCT (x . 2 .0ER2 I 
C 

implicit REAL*RI A-H.O-tl 
COMMON /A/A,AMU«PI 
COMMON /J2/AJ2 

COMMON /POWER/PKM.CC< AM0.A0«A.,A2,A3«IPQW 
OIMENSION 2(10),' I'ERZIIO), G(iOI, HllO), 02J2I10) 

EXTERNAL FCT 
Bl= 0EXP(-A2*X) 

C 

IF (IPOW.EO.OI A* A0/( 1.00-A1'<X) 

IF ((IP0W.E0.1I.ANn.(A3.GE.Bin GO TO 20 

IF (IPOW.EO.IJ A« AO«(B1-A3I/(1.00+A1*(B1-1.DO+A3*A2*X) ) 

00 2 1 = 1,10 

2 0ERZ(1)= 0.00 

C 

CALL 0UA0(-PI,PI ,FCT,DER2,2,G,H,10) 

IF I AJ2.LE.0.00) RETURN 
5 CALL OBLATE(AJ2.2.n2J2,l) 

DO 10 I>1.10 

10 OERZ(I)= OERZdl * 0ZJ2(I) 

RETURN 

20 WRITE (6,10001 
STOP 

1000 FORMAT (• POWER IS NEGATIVE') 

END 
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CONTL 

SEP OR NEP, HIGH THRUST ^'^lY BE INCLUOEO. 

This is the main comirulling program for finoing the 

OPTIMAL TRAJECTORY FOR SATFILITE RAISING 
USING ELECTRIC PROPULSION AND HIGH THRUST, 


implicit REAL*R«A-h,0-*), integer (I-N) 
COMMON /INT/ITF, IPR, IDIM, ID1M2, NIMAX 
EXTERNAL TRAJ, PRTN 


ALL SETTING OF CONSTANTS AND INITIAL READ ANO WRITES 
ARE DONE BY THE SUBROUTINE INPUT 

CALL INPUT 

IF (NIMAX. EO.O) GO TO 10 
WRITE (6,1001) 

THE ITERATOR ROUTINE SOLVES THE 2PBVP FOR THE OPTIMAL TRAJECTORY 

CALL ITERIKOUNT, Nl, TRAJ, PRTNI 
IF (NI ,E0. 9999) WRITE (6,1002) 

WRITE (6,1003) 

OUTPC PRINTS A SUMMARY OF THE OPTIMAL TRAJECTORY VALUES 

CALL OUTPC (KOlINT) 

C time HISTORY OF THE OPTIMAL TRAJECTORY IS CALCULATED AND PRINTED 
C 

10 WRITE (6,1006) 

1PR> 1000000 
ITF*3 
CALL TRAJ 
C 

IF (N1.E0.9999) WRITE (6,10>2) 

IF (N1.NE.9999) WRITE (6,1033) 

STOP 

1001 FORMAT (IBHl ITERATION BEGINS) 

1002 format (29HC OPTIMISATION NOT SUCCESSFUL) 

1003 FORMAT (63H1 CONVERGED VAHJES FOR OPTIMIZED IRAJECTDRY) 

1006 FORMAT (36H1 TIME HISTORY OF OPTIMAL TRAJECTORY) 

1005 FORMAT ( 30H0 PROGRAM HAS PUN SUCCESSFULLY) 

END 
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oblate 


this StlBPfior.RAM evALtiATt-S The averaged derivative of The 
state and costate ode in THt- ORLATENESS. J2 term 
ASSUMES earth EOUATORIAL RAOlUSalt MU-1. IF NOT Cl MUST RE 
MODIFIED. 

IF U-2, EVALUATE DZII). 1-1.5 ONLY. 


SUBROUTINE ORLATE(AJ2,?,OZJ2, IJI 

IMPLICIT REAL*B( A-H.O-$l 
DIMENSION Z(I0I.0ZJ2( lOI.Pjrv.S) 


Cl- I.500*AJ2/Zm**3.5 
Bl8Z(A)**2>ZI5)**? 

B7- l.DO-6.no*Bl + 3.00-BlP*? 
DZ- l.DO - ZI2I — 2 -ZI3)»*2 
B2- 1.00/02**2 
BN- 1.00/( 1.00*B1 ) 

C2- B2*BN 
B4- l.DO - B1 
C3- Cl*C2 
016- B6*B7 

03- C3*D16 
C 

0ZJ2I11- 0.00 
DZJ2I21- Z(3)*03 
DZJ2(31- “2(21*03 
C 

04- BA*C3 
C 

0ZJ2(A1- -Z(5I*04 
0ZJ2(51- Z(6)*04 
C 

IF nj.E0,2) RETURN 
C 

05- -3.S00*C1/Z(1) 

BBS C2*016*05 

t 

PJ(1«1I-Z(3I*BB 
PJIZ.ll- -Z(2)*BB 
C 

B12- C2*B4*0S 
C 

PJOtll- “Z(51*B12 
PJ(4,n- Z(4)*B1? 

C 

02- .2S00*O2**3 
07- B6*Z( 21/02 
B9- C1*D16 
C 

PJ(1.2I- Z(31*B9*07 
PJI2.2)- -B9*(Z(2»*07 ♦ C2I 
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c 

c 

c 

c 

c 

c 


c 


c 


c 

c 

c 

c 

c 


c 


c 

c 


10 


B13e C1*07*P4 

OOOrH<540 

00000570 

PJI3,2>« -Zt5)*BH 

300005P0 

000O0590 

PJU,2I» ?(A|#B|3 

OOOOOnOO 

09s B6«2l3)/0? 

OOOOOf.10 

OOOOOB20 

PJUt3>» B9 s|2(3)*09 ♦ C2) 

OOOOOB30 

00000640 

PJ«2»3)s -Z(2)*S9#D9 

00000650 

B19s C1*B^*D9 

00000660 

00000670 

PJ«3f3)= -2«3)*B19 

000006RO 

00000690 

PJI4,3»s ZK)*B14 

00000700 

01O« -2.00*B2*B6**2 

00000710 

00000720 

0n-2l9)*010 

00000730 

P12» -12.00*B< 

00C00740 

D13s C1«B6 

00000750 

D15=C2*D12 

00000760 

BIOS 0l3*«2.00«‘B7snil ♦ ZI4»soi5» 

00000770 

P.Ml,41s Z(3)SB10 

00000780 

00000790 

PJ«2.9»s >Z(2)«B10 

0C000800 

B15s B<>*DU - 2.00*Z(4»*C2 

000008 «0 
OOOOOB20 

PJ(3«9is -2(5)*C1*B15 

00000R30 

00000840 

B16s C’^B^ 

00000850 

00000860 

Pje4,41s C1*(B16 + Z 4J*B15) 

00000870 

00000880 

01«s 2I5)*D10 

00000890 

00G00900 

DIB- C2*012 

00000910 

Blls 013«(2.D0*B7S01‘» * Z(B)*01BI 

00000920 

PJUtBIs Z(3r*Bll 

00000930 

00000940 

PJi2,5>s -Z(2)*B11 

00000950 

B17s 014SB4 - 2.00*Z(5I*C2 

00000960 

00000970 

PJ(3*B)s >C1*IB16 ♦ Z(B)4>B17I 

0O000980 

00000990 

PJI-.,5>o 

00001090 

DO 10 JsUB 

00001010 

00001020 

0OCO1O30 

0ZJ2(J4B)s o.JO 

00001035 

00 10 1»1.4 

00001040 

0ZJ2IJ45)s OZ 2«J+5> -Zn-»6)«Pjn.J) 

00001050 

RETtAN 

00001060 

ENO 

00001070 
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C quad 16 
C 

c 

t This is 4 H00IFI60 OllAtiHATlIMf INTEr.HATION PftOf.eAM ¥00 
C VECTOR VAHIEO FUNCTION'S Fft ONE VARIARIF. IT INTfORATES 
C 0 (OR Hi OVER X FROM XL 10 XU. THE RESULT IS V, 

C EVALUATION IS BY A 16 POINT GAUSS UUAORATURE FORMULA. 

C 

SUBROUTINE OUAOi XL . XU .FCT , Y, 7 .G.H.N I 
C 

IMPLICIT REAl*fl(A-'t.O-$l 
oime;jsion Yin,zm,G(ii«H(ii 
C 

.SDOOIXU^XL) 

Ba XU>XL 

Ca .«9A700A67A95B249700PB 

Kal 

GO TO BOO 

10 10 20 lal.N 

20 Villa .13B76229705B770A70-1*G11I 

C» .4722fl751155661629D0»8 

Ka2 

GO TO BOO 
30 00 40 lal.N 

40 Yin- vm ♦ .31126761969323946 i>-1*GIII 

Ca .43281B60119391BB '00*3 
Ka3 

GO TO BOO 
BO 00 60 lal.N 

60 VI Dm vm* .47B792BBfi41246392D-l*GI I ) 

Ca .37/702204177B01B200*B 
Ka4 

GO TO BOO 
70 00 80 lal.N 

80 Villa V«n+ .62314*.6B627766936l-1*GI I » 

Ca ,308938122201321fl7D0*B 
KaB 

GO TO BOO 
90 00 100 lal.N 

100 Villa VI n ♦.74797994AC82F8370-l*Gin 
Ca .229008388B2R6'36900*B 
Ka6 

60 TO 500 
110 00 120 1-l.N 

120 Villa VI I ) ♦,64B7B2B9697501270-l«G(n 
Ca .14080177B3896294600*B 
Ka7 

GO ro BOO 
130 00 140 lal.N 

140 Villa VIII *.91301 707522461790-1*611) 

Ca .47B06244918''|8720>1*B 

Kae 

GU TO BOO 
IBO 00 16C lal.N 

160 Villa B*IVIl) *.94725305227514250 1*6IIM 
itETUPN 

500 CALL FCTiA-C*A*C.Z.H.GI 
00 510 lal.N 
510 Gtlla 611) * Nil) 

GO TO I10.30.50.70.90.110.130.1BU).K 

STOP 

END 
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PCT 

This subprogram is CAILEU by the ouadrature program and 
evaluates the INIEGKANII 


subroutine ECT(E1.F2,7,h,G) 


000000 in 
00000020 
00000030 
00000040 
OOOOOOEO 
OOOOOOfeO 
00000070 
OOOOOOflO 
00000002 


implicit REAL»8( A-H,n-il , integer (I-NI 00000084 

00000090 

COMMON /A/AtAMUfPI 00000100 

ooooono 

dimension 2( 10I*G( IOI.HI 10l,AM(S,3>«PAM(S,3«%)tVEC(3l.X(5UPRA|Sl 00000120 


MbO 
F»Fl 

EVALUATE M AND PARTIAL OF M WRT STATE 

DO b 1-1,3 

5 X(II>Zm 

10 CALL EVALMPI X,F,«MU,AM,PAM,1 I 
C 

C EVALUATE THE COMMON SCALOR FACTOR 
C 

CT-0C0S(F1 

ST-OSINIFI 

RA- 1.000-Z(31*CT -Z(21*ST 
FAC» A*RA/(2,000*PI I 
C 

C EVALUATE the UNIT OF M TRANSPOSE LAMBOA 
C 

ABVEC- 0.00 
00 30 1-1,3 
VECU 1-0.000 
00 20 J-1,3 

20 VECm- VECm ♦ AM(j,II*ZIJ451 
30 ABVEC- ABVEC * VEC(2I*«2 
ABVEC- OSORTIABVECI 
DO 40 1-1,3 

40 vEcm-vEcni/ABvEc 

(; 

C EVALUATE THE PARTIAL OF RA WRT X 
C 

PRAI 11-0.00 
PRAI21— ST 
PRAI31— CT 
PRAI 4 1 >0.00 
PRAI3I-0.00 
ABVEC-ABVEC/RA 
C 

C EVALUATE THE FUNCTION 
C 

on 60 1-1,3 

Gill- 0.000 
G( USI-O.OOO 
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00000340 
00000330 
00000360 
00000370 
000003B0 
00000390 
00000391 
00000392 
00000393 
00000394 
00000393 
00000396 
00000397 
CC00039B 
00000399 
00000400 
00000410 
00000420 
0''C00430 
00000440 


119 




00 so j>lt3 

GUIs G(I) * AM( I .J)*VFC( J) 

00 50 L«lt5 

50 G«I*5)» Gtl*51 - 7IL*5)*PAMU,J.1 »*veC« J> 

G( 1 1- FAC*6I I t 

60 G( I45)»FAC*CG( US)-APVFC«PtA(m 
IF (H.EO. 1) RETUHN 
00 70 I«ltl0 
70 HI n* GI I) 


GO TO 10 
ENO 
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SUBROUTINE EV£LMP 

This subroutine evai hates ihe sx3 matrix m and the 

5X3X5 PARTIAL (IE M WRT x 

IF IMFLAn>l. BOTH M (AMI AND ITS PARTIAL (PAHI ARE EVALUATED 

IF IMFLAG>2* only M (AMI IS EVALUATED 

IE IMFLAGb3« only the partial of M (PAH) IS EVALUATED 


SUBROUTINE EVALMP(X. THETA, AMU, AH. PAM, IMElAG) 

IMPLICIT REAL«B(A-m.U-SI, integer (I-NI 
DIMENSION X(5I, AM(5.3), PAMI5,3,5I 
COMMON /EVMP/ XI.Y1.X100T,VI00T 
C 
C 

ENzOSORT( AHU/XI 1 l««3l 

RHO= OSORTd.OO- X(2)*«2- X(3>*«2> 

BETA> 1. 00/(1. 00 •fRHO) 

CT= OCOSI THETA) 

ST= OSIN(THETA) 

RA» I.00-X(3I*CT -X(2)*ST 
ZETAa X(3I*ST-X(2)*CT 
BETA3* BETA**3/( I.OO -BETA) 

XI= X(I)»((1.00 -X( 2)**2*RETA)*CT ♦X(2)*X(3)»BETA*ST -X(3)I 
YI= X(1)«((I.D0 -X(3)*’»?»BETA)*ST ♦X(2)'X(3)*BETA»CT -X(2I) 
XlOOTs -(11. DO -X(2 l•»2«=BETA)*ST -X ( 2 )»x ( 3 ) «BET A*CT I *EN^X ( 1 1 /R A 
YIOOT* (( 1.00 -X(3)»«2»RETA)»CT -X ( 2 )*X ( 3 )*BETA*ST ) »£N*X ( 1 1 /R A 
P21= X(1)»(2ETA*(BETA4X(?)*«2*HETA3) -(X(2)*BETA -ST)*CT/RAI 
P22*- -X(1I*(-2ETA*X(2)**(3)«BETA3 ♦UOO ♦($! -X ( 2 ) » BET A )*ST /R A ) 
P23« X(l)*(-2ETA*X(2t«X(3)»aETA3-l.DO ♦(X(3)*BETA -CT)*CT/RAI 
P2'*= X( 1 )*(-2ETA»( BE1 A ♦XI 3)«*2*BETA3) +(CT -X(3)*BETA)«‘ST/RA) 
IE (IMELAG .EO. 3) GO TO 10 

C IE DO NOT WANT TO EVALUATE PARTIAL OF M. BRANCH TO 10 
AM(1.1)= 2.00*Xin0T/(EN#*2*X(l)) 

AM(1,2)= 2.OO*Vl0OT/(EN**2*X( 1) ) 

AMI 1,3)=0.00 
OUM= RHO/( EN*X( 1 )*«2) 

AH(2,I)s 0UM*(P22- X(2)*6ETA»X100T/EN) 

AM(2,2)= 0UM*(P2A -X(?)»BETAaY100T/EN) 

AM(2,3)= 0UM*(X(3I*(X(5I*Y1 -X(<,)*X1) )/RH0»*2 
AM(3,lls -0UM*(P?1 ♦X(3)*BETA*X1D0T/EN) 

AM(3,2)» -OUM»(P23 *X ( 3 l*BET A« YIDOT/EN) 

AM(3,3)s -OUM*( X(2)»( X(5)*Yl -X ( <,)*X I ) /RH0*A2 ) 

AH(4.1)s0.00 

AM(4,2)-0.00 

dumb (1.00 ♦X(*)»*2 ♦X(5)«*2)/(2.00*EN*X(l)**2*RH0) 

AM(4,3)b 0UM*Y1 

AH(5,1)b0.00 

AM(5,2)aO.OO 

AH(5,3)b 0UM«X1 

IF ( IMFLAG .EO. 21 RETURN 

C IE ME ONLY WISH TO EVALUATE M THEN PROGRAM RETURNS HERE 
10 CAb DSORTI AHU/X( 1 ) )/RA 
PZ5b X(2)«BETA3 
P26b X(3I*BETA3 
P29b CA«ST/RA 
P210= CA«CT/RA 
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00000020 
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OOOPOOfcO 
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P220« X(1)*C-2.00*XI?)*BFTA*CT *X ( 3 » *RET 4* ST ♦PZS*Z ET4*X ( 2 ) ) 
P22R= X(1 )*«X(2)*KFT4*Si -1,00 ♦P^^*X^2)#^ET^^ 

P229= X( n*tX<3)*BE14*CT -1.00 -PZS'X( 3)*2ETA) 

P235» X(n*(-2.r»P*X(3|i>flETA*ST *X( 2 )»BET4«-CT -Pi6*X < 3 » wZETA I 
P2ii» -xiooT/(?.no*xiin 
P212= -VlD0T/«2.n0«Xl n ) 

DUMls l.DO -RA 

P213- -CA*t-2.00Pxt2J*BETA*ST -X C 3)*BET A*CT -PZ5*X ( 2 ) t-OUMl) *PZ9 
1 *X1D0T/CA 

PZ14S -CA*(-X(2)«BET4«CT -PZB*X12)*00MH -»PZ 10*X IDOT/CA 
PZ15h -CA*(X(3)*BET4*ST ♦PZ5'»X ( 3)*0UM1 ) «PZ9«Y100T/CA 
PZ1A= -tA*t2.00»X(3)«BETA*CT +X « 2 »*BETA*ST ♦PZ6*DUM1»X 1 3 1) 

1 ♦PZ10*Y100T/CA 

OUM« beta ♦X(2) *PZ^ 

PZlTo l.DO-^ PZ5*X(2»»(3.no/BETA 4^1 .00/ ( 1 ,00-BETAI 1 
PZ18= (2.00 ♦PZr/)*PZ5 
PZ19» PZ17*PZ6 
0UH2° X(2)*BETA -ST 

P22'.= -XI l»*(CT*miM -ZETa*PZ 18 +CT*00M/RA ♦CT*ST*mjM2/R4**2) 
PZ22* XI 1 )*( ST*OliM «ZET4»PZ19 -CT*XI 2)«PZ6/RA-CT**2*DOM2/R4w*2) 
PZ23= BETA3*l3.D0/BeT4 -»!. GO/I 1.00 -BETA)) 

PZ24a PZ234PZS 
PZ25sPZ23*PZ6 

P227= Xll)*l-CT*XI2)'»X(3)*BETA3 ♦ZETA*X 1 3 )* I BET A3 +XI2)*PZ2‘) 

1 ♦IST4IBETA +XI2)*PZ5) )/RA ♦ST’**2’»OUM2/R4»*2) 

PZ28» X(1)»IST*XI2)*XI3)*B€T43 *ZETA»XI 2)»l BETA3 +XI3)*PZ25) 


1 


1 

1 


1 


1 

1 


♦X(2)*ST*PZB/R4 ♦ST*CT*0UM2/RA**2) 

0UM2= XI3)*BETA-CT 

PZ30- XI 1)*ICT*XI2)*XI3)*BETA3 -ZETA*X 1 3 )• I BETA3 +XI2)*PZ29) 
4-CT*X(3)*P2i>/RA ♦CT*ST*0IIM2/RA**2) 

PZ3l= XI 1)*I-ST*XI2)*XI3)*BETA3 -ZET4*XI 2)*IBETA3 ♦X(3)*PZ25) 
♦CT*IBETA 4XI 3)*PZ6)/RA +CT**2*0UM2/RAP*2) 

OUMe beta 4-XI3)*PZ6 

P232= 1.00 +PZ6*XI3)*I3. 00/BETA 41.00/11.00 -BETA)) 

PZ33= P232*P25 

PZ39= PZ32*P26 42.00*XI3)*BETA3 

PZ36= X(l)*ICT*OUM -ZETA«PZ33 -ST*XI3)*PZ5/RA -ST**2*0llM2/RA**2) 
PZ37« X(1)*|-ST*0UM -ZETA4PZ39 -ST*(BETA 4X1 3 )«PZ6) /RA -ST*CT 
*OUM2/RA**2) 

00 20 Jel.2 

PAMI l.J.Ds 3.00*AM(1,J)/(2.00*X(1)) 

OUN >2.00*X( 1)**2/AMU 
PAH(l,l,2)e PZ13*0UM 
PAMI1,U3 )b PZ19P0UH 
PAN(1,2,2)b PZ15*0UM 
PAHI 1,2,3)bPZ 16*0UM 
OUHs OSORTI AHU*XI 1) ) 

CBsRHO/OUH 

PZ38» -XI2)*CB/RHO**2 
PZ39» -XI3)*CB/RHO*«2 
PAM(2,I,1)« AM(2«l)/(2.00*X(l)) 

PAMI2,1,2)b -CB*BET4*XIOOT/EN 4PZ3R*AMI2,1)/CB 4CB*IPZ27 
-XI2)*BET4»PZ13/EN -XI2)»XID0T*PZ5/EN) 

PAM(2,lt3)B PZ39 bahI2,1)/CB 4CB»IPZ2B -PZ6*XI2)PX100T/EN 
-XI2)«BETA«PZ14/EN) 

PAMI2,2,l)s AM(2.2)/(2.00«X(1)) 

PAM(2.2»2)* PZ3B*AH(2.2)/CB 4CB*IPZ36 -BETA*Y100T/EN -XI2) 


000003R0 

00000590 

00000600 

00000610 

OO0C0620 

00000630 

00000640 

00000650 

00000660 

00000670 

00000680 

00000690 

00000700 

00000710 

00000720 

00000730 

00000740 

00000750 

00000760 

00000770 

000007B0 

00000790 

OOOOOBOO 

00000810 

00000B20 

00000830 

00000840 

00000850 

00000860 

00000870 

00000880 

00000890 

00000900 

00000910 

00000920 

00000930 

00000940 

00000950 

00000960 

00000970 

00000980 

00000990 

00001000 

00001010 

00001020 

00001030 

00001040 

00001050 

00001060 

00001070 

00001080 

00001090 

00001100 

00001110 

00001120 

00001130 

00001140 
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1 •VlDriT*M?S/»-K' -X( ?)*HETfleP?lS/fN» 


.,000 11 SO 


PAM(2,2,31= P73«>»ft»'( ?.2)/fO ♦Cf<*(P737 -X< 2)«YinOT«P2<»/EN 
1 -x(2l'=HMaeP71f./6ro 

PAHt 2t3, 1)» AM( 2.<| /(?.nn*XC 1 1 I 
DUM1» X(5»*V1 -X(i.l»Xl 

PAM(2«3.2I= XI3)*(X13I*P729 -X ( 4 »#P7 201/ 1 RHO^OUM) +X(2)*Xt3) 

1 «0llMl/(RH0«*3*miMl 

PAH|2t3»3)« DUM1/(RH(J«0UM| «X ( 3 )« ( XI S )*P23S -X 1 4> *P7 26 1 / (RMO 
1 *DUMI 4.X(3)«»2»m'Ml/(RHO*«3»OUMl 

PAM|2,3t4)= -X(3)«X1/(RH0»0UM) 

PAH(2«3.5)x X(3l«Yl/(RH(l*0tlH) 

PAM(3,l,l)s AHI 3. 1 ) /(2.00»X( 1 I) 

PAM(3,1,2)b P73«»AM(3,11/CR -CR*«P221 *X( 31*X 100T*P25/EN 
1 ♦Xl 3>»Bn A*P713/EN1 

PAm3,1.3)= P239*AH(3,1)/CP -CB*CP222 *<RETA*X1D0T +XI3I 
1 »X1D0T«P76 ♦Xl 3I*BETA*PZ 141/ENl 

PAM(3.2»ll= AM(3. 21/(2. nO*X(l»l 

PAH(3.2*2I« P23B»AM( 3.21/CB -CB*CP230 +X1 3»*« Y100T*PZS 
1 ♦BETA*P21S»/EN) 

PAM(3,2,3J= P239*AP( 3.21/CP -CB*«P231 ♦(BETA*Y1D0T +X(31 
1 •Y100T*P7fe +X(31*BETA#P2161/EN) 

PAMt3,3,llx AM(3, 31/(2. 00*X( 1) ) 

PAM(3,3.21> -tMIMl/(RH0*0('M) -X ( 2 )*< X ( 5 )*P229 -X|4)*PZ20)/ 

1 (RHO«OllM) -X{21^«2’»0(iMl/(RH0»»3*nuM> 

PAH(3.3»3|s -X(21»(X(51«P735 -X ( 4 l*PZ26 )/ ( RHO*DHM I -X(2l*X(31 
I •0UMl/(RHn»*3*0(lM| 

PAM(3.3,4I« X(21*x1/(RHO*OUM1 

PAM13.3,51» -X(21*Y1/(RMO*OUM1 

25= (1.00 +X(51**2 ♦X(4|*r#2 j/(2,00*DUM*RH0) 

P240= -ZS/(2.00»X(lll 

P241» X(2I*25/RhO«'»2 

P242» X( 31*25/RhO>»*2 

P243= X(4|/(0UM»RM0I 

P244* X( 5l/(0(IM«RH0l 

PAM(4t3«lls AM(4. 31/(2. 00*X(1I) 

PAM(4,3,21= PZ41*yI*25*P229 
PAn(4,3t3l« P242*Y1 +25*P235 
PAM(4,3.4)x PZ43*Y1 
PAM(4,3fS|x PZ44PV1 
PAM(5,3,l)= AH(5, 31/(2. 00*X( in 
PAM(5,3,2)= PZ41*X1 ♦25*P220 
PAH(5,3,3l= PZ42»X1 +25*P226 
PAH(5,3.4|b PZ43*X1 
PAH(5,3,5J» P244*Xl 
DO 30 K=lt5 
PAMU,3yK)sO.OO 
00 30 Ie4t5 
00 30 J=lt2 
30 PAH( I,J,K)-0.00 
DO 40 

00 40 Jslt2 
00 40 Ks4t$ 

40 PAM( I,J,KI=0.D0 
RETURN 
ENO 


00001140 
00001170 
0000 11 BO 
00001190 
00001200 
00001210 
00001220 
00001230 
00001240 
00001250 
00001240 
00001270 
000012B0 
00001290 
00001300 
00001310 
00001320 
00001330 
00001340 
00001350 
00001360 
00001370 
000013BO 
00001390 
00001400 
00001410 
00001420 
00001430 
00001440 
00001450 
00001460 
00001470 
000014RO 
00001490 
00001500 
00001510 
00001520 
00001530 
00001540 
00001550 
00001560 
00001570 
300015RO 
00001590 
00001600 
00001610 
00001620 
00001630 
00001640 
00001650 
00001660 
00001670 
000016R0 
00001690 
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C MAINE 

C 

C 

C 

C 

SUBROUtINE MAINE (E.E,XK,uR»XJ,HR,IMAx*v wnRtTTOT) 
C 

implicit REAL*8 (A-H.O-2I 
C 

•'IMENSION S«3t7,?0) .l»P(51 ,0(5) 

C 

CCMMON/STR/S 

CnMHON/BPC/BPO* BPT ,E I , PI ,OTF 
C 

103 FORMAT! 6E 15. lOt • FAILED GENERAL TESTS*) 

C 

CALL start IE.F,XK,IIP,XJ,HR*1«1.NFI 
IF (NF) 399,399,100 
C 

100 J>0 

1 = 1 

BP0= ( OSORT ! 2 .DO# ( 1 . OO+E n -1 ,00-E ) /HR 
C 

202 

20S DTls 0.00 

210 CALL TIME! I,J,0T1 .SPAN.S! I,J^1,2M 

220 CALL SUITCH(I,J,S( I. J-»1,2),X,NX,0) 

IF (S(I,J4-1,1)..GT.TT0T) go TO 230 
IF (J-x1>JM) 202,307,307 

230 JM« J 

307 DTF= TT0T>S( 1,JM.1) 

sii,jm+i,i9)b i.no 

S( I,JH-xl,lS|s 0.00 

S( I,JM4^1,3)‘> 0.00 

CALL DTDU! I,JM,DTF,JM+1,1) 

308 RETURN 

399 MRITE 16,103) E,F.XK.UP,XJ,HR 
RETURN 
END 


00000010 

00000020 

00000030 

OOOOOOAO 

ooooooso 

00000060 

00000070 

00000080 

00000090 

00000100 

00000110 

00000120 

00000130 

or iooi<»o 

00000150 
00000160 
00000170 
00000180 
00000265 
00000270 
00000275 
00000280 
00000290 
00000300 
00000" A7 
00000360 
00000370 
00000371 
00000380 
00000381 
00000382 
00000386 
00000385 
00000386 
00000387 
00000390 
00000600 
00000610 
00000620 
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START 


SUBROUTINE START I E . ► . XK ,(iP,X J,HR» I , J,NF I 
C 

implicit REAL*ft (A-w.0-7) 

C 

DIMENSION S(3t7.?0) 

C 

COMHON/STR/S 

C 

S(I.J.12I= OCOSIFI 
S(I.J,13>= OSIN(E) 

SCI. J. 10)= 1.00«E«S( I .J.12I 
RAO= OSORTISI I. J. 1011 
S( I.J«5)« E«S( I« J. ni/RAO 
SIUJ«9I= RAO«OSINtliP| 

S(l,jtili= RAO«ncnsniP)-XK 

S( ltJt7l= (XJ*S( I.J.‘)l + XK*SUtJ.5)l/( 1.00+XK*IXK*S(I ,J,11) )) 
5 S(ltJ«A)» HR/OSORl < t l.OO+SI 1, J.7)==?)*SI I »Jt 10) ) 

S(ltJ»6)s XK 

s( i«j«R)s xj*(xK*sn. J. 11 ) )+(xK*sn,j»7)-st 1 1 Jt5) )*S( I »j.9) 

IF (1-1) 

f> CALL SWITCH) I, 1,0. DO. OX. NF.l) 

IF (NF) 31,31,7 
7 S( 1,J,1)« 0.00 

S(1,J,2)= 0.00 
S( I,J,3)e 0.00 
S(I,J,K)= 1.00 
S( I,J,1S)= 0.00 
S(I,J,16)= 1.00 
SI I,Jf 17)= 0.00 
S(1,J,1R)= 0.00 
S( I, J, 19)3 0.00 

sn,jt20)= 0.00 

31 RETURN 
END 


nooooolo 

nonooopo 

00000030 

00000040 

ooooooso 

000000^0 

00000070 

OOOOOORO 

00000090 

0.0000100 

00000110 

00000120 

00000130 

00000140 

00000150 

ooooouo 

00000170 
000001 RO 
00000190 
00000200 
00000210 
00000220 
00000230 
00000240 
00000250 
000002^0 
00000270 
000002B0 
00000290 
00000300 
00000310 
00000320 
00000330 
00000340 
00000350 
00000350 
00000370 
000003B0 
00000390 



C TIME 

000000)0 

C 


00000020 

C 


00000030 

C 


000000*.0 

C 


ooooooso 


subroutine time (I,J.nTl,SP4N,0TSI 

00000060 

C 


00000070 


implicit REAL«R (A-h,0-7I 

OOOOOORO 

C 




UIHLNSIUN CT(50I. 0(501 

00000100 

C 


00000110 

101 

FORMAT! R016.RI 

00000120 

102 

F0RMAT(4I3,6016.R> 

00000130 

H 7 

FORMAT! • FAILFO KSP' ) 

00000140 

C 


00000150 


K= 2 

00000160 


K75= 0 

00000170 


IKS- 20 

OOOOOIRO 


M» 4 

00000190 


OTNEG- 5.0-10 

00000200 


IF !0T1) 305*500.600 

00000210 

500 

DT!1>- I. 0-6 

00000220 


CALL SHITCH!I,J,nT!n.Om.NF*ll 

OOC00230 


IF !NF| 306*306,501 

00000240 

501 

0TI21- 1.0-3 

00000250 

50? 

CALL SWITCH! I,J,r)T(KI .0(KI*NF *21 

00000260 


IF !NF) 510*510*503 

00000270 

503 

IF !K-7) 504*306.306 

000002RO 

504 

OT(K*l)s OT!K)*5.nO 

00000290 


K- K*1 

00000300 


GO TO 502 

00000310 

510 

SPAN- !0T!KI-0T!K-in/5.OO 

00000320 


GO TO 79 

00000330 

600 

CALL SHITCH!I,J*nT1.0ll),NF*ll 

00000340 


IF !NF) 2*2*1 

00000350 

1 

OTIII- OTl 

00000360 


0TI2I- OTdl+SPAN 

00000370 


CALL SWITCH! I,J*0T!2I *0!2I*NF,2I 

00000380 


IF !NF) 50*50*305 

00000390 

2 

0T!2I- OTl 

00000400 


0 ( 21 - om 

00000410 


0T!1)- OMAXl ( 1. 0-6, OT 1-SPAN) 

00000420 


CALL SWITCH!I*J*0im*0!l)*NF*2) 

00000430 


IF !NF) 305*305*50 

00000440 

50 

KS- K-1 

00000450 

C NOW 

GOOO AT 0T!KS)*BA0 AT OT!KSM^SPAN 

00000460 


KSP- KS^IKS 

00000470 


00- 0!KI-0!K-1) 

000004R0 

51 

OOT- !0T!K-1I-0T(KM/00«0!K) 

00000490 


IF (OOT*(OTNEG-OOT)) 54.53*53 

00000500 

53 

IF INF) 75,75*100 

00000510 

54 

IF (KSP-K) 304,304*55 

00000520 

55 

OTU+D- 0T!K)*nnT-nTNef./2,00 

00000530 


IF !!0T!K4l)-0T!KS)«nTNEG)*!0T!KS)4^SPAN-0T(K4^1))) 75*75*56 

00000540 

56 

K- K*1 

00000550 


CALL SWITCH (|,J.0T!K|*0!K),NF*2) 

00000560 


00- OlK)-O(K-l) 

00C00570 
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IF tool 51.100,51 

00000500 

75 

IF (K75-WI 76,76.n5 

oooooswn 

76 

K75* K75+1 

00000600 


Kb KS 

OOOOO.-IO 


SPANb span/5.00 

00000620 

78 

Kb «♦! 

00000630 

7«i 

0T(K)b DT(K-1I«SPAN 

00000660 


CALL SMITCHI I.j.nilKI.OtKI.NF.?! 

00000650 

80 

IF INF) 50,50.78 

00000660 

100 

OT'b OTIKM-DTNEG 

00000670 


RETURN 

00000680 

306 

WRITE (6,107) 

00000690 

305 

WRITE (6,10?) I,J.K.K75.DT1,SPAN,0TI1),0I 1),0TI2),0(2I 

00000700 


WRITE (6,101) (01 ( IK 1 ,0( IK) , IKsl.K) 

00000710 


KKb 5J 

00000720 


0(KK)b i.oo 

00000730 

3( 6 

RETURN 

00000760 


END 

00000750 





4 





C SWITCH 
C 

c 

c 

c 

SUBROUTINE SWITCHl I , J , T .01 ,NF .KDU) 

C 

implicit REAL*a(A-H.O>Zi 
C 

DIMENSION S(3*7t20) 

C 

COMMON/STR/S 

C 

177 F0RMAT(R016.8) 

178 FORMAT! 5025. IS) 

C 

IF IK0U-1> 40,20.30 

20 ASKs 1.00-S(I,J.9)*S(I.J.9l-S(l,J,A)«Sn,J,6) 

TF= 1.00-2.00«Sn,J.7)*sn,J,7) 

os» s(i,j, 5)4-( sn,j.M>s( i,j,iii)*sn,j,7) 

0S8* e.DO«=S( I,J,7I*0S 
ASKO= ASK*I2,00*TF-1.00) 

THO» -3,00*(2,00*TF-1.00I 
022* -(2,D0+TF)*S! I.J,7I 
021= -022*S( IfJ.f'I-OS^TF 

XE= TF-S! 1 1 JtM**2-» !S( I, J,8)*S( It J,5)*S( I, J, 9 H**2+ 

1 (S(ItJtSI»S( I ,J.6)-S( ).Jt7n*«2l/S(ItJtlOI 

30 F= S(ItJtlli-»T*S( ItJtAI 
F2= F*F 

P= IF^SI ItJt6l )*(FtS(l,Jt6n+SntJt9)*S( ItJt9I 
..As P*( ASK+F2)-9.00«F? 

XB= S(ItJf71*!2.00*P*(F+sntJt6»)-4.00*F) + (S!I tJtSI* 

1 S(ItJt71>»T*S< I.J.4I »*(2.00*F2-P) 

XC= ASKO+OS8*F+THO*F2+P*XE 
XOs 021+022*F 
X4s XA«XE-XB*XD 
24= XE*XB*XB+XA*(XO*XO-XE*XC) 

01= (XC«XC+16.00*X4)sX4=X4-Z4*(XC*(XC*XC*18.DO*X4)-f27.00*Z4» 
IF (XE) “t9t777 
777 IF (01) 9,3t3 

3 PP= 2.00*XC-3.00*X0*X0/xe 
IF (PP) 4,10tl0 

4 IF (XC*XC+12.00*X4-PP*PP) 9t9tl0 

9 NFS 0 
RETURN 

10 NFS 1 

RETURN 

40 OERs X04X0/XE/XE 

TRs OER/2.DO*IXC/XE-3.DO/4,DO*OER)42,DO*<4/XE/XE 
OPs XC/XE-3.0O/2.D0*nFR 
00= (X04I0ER-XC/XE l•»2.D0«XB)/XE 
IF (00) 42,41,42 

41 SI I,J-*^1,3)= 1.020 
SII,J+l,14)= -1.00 
S(I,J«l,15)s 0.00 
GO TO 43 

42 PPR> OP-i'DSORTIXC^XC^lZ.OO^X'.l/XE 


000000)0 

00000020 

00000030 

00000040 

ooooooso 

00000040 

00000070 

OOOOOOHO 

00000090 

00000100 

00000110 

00000120 

00000130 

00000140 

00000150 

00000140 

00000170 

00000180 

00000190 

00000200 

00000210 

00000220 

00000230 

00000240 

00000250 

00000260 

00000270 

00000280 

00000290 

00000300 

00000310 

00000320 

00000330 

00000340 

00000350 

0000036D 

00000370 

00000380 

00000390 

00000400 

00000410 

00000420 

00000430 

00000440 

00000450 

00000460 

00000470 

00000480 

00000490 

00000495 

00000500 

00000510 

00000520 

00000530 

00000540 

00000550 

00000560 
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.*^4 * 


403 

43 

300 



YS« -DflBS(0tM/n0*|iS JMT( TR/PPft) 

00000370 

S3« vs-xn/?.no/xf 

000005R0 

S(ltJ+1.3)« 1.D0/S3 

000005P0 

0FN= 1.00»P«S( I,J»1.3)*StI,J+l,3» 

00000400 

S(i.j+i,i4)* ?.Dc/ntN-i.no 

00000610 

S( ?.00«S( 1 ,J« 1.3 )«r)S0RT( PI/OEM 

00000620 

CALL OTOU( I.J.T.j4l,n 

00000630 

RETURN 

00000640 

END 

00000630 
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C DTDU 

C 

C 

C 

C 

SUBROUTINE OTDUI 1.L.OT.M.ISW) 

C 

implicit REAL*B (A-h,0-7I 

c 

DIMENSION S(3t7.?0) 

C 

COMMON/STR/S 

c 

CDUe 1.00 
SDUe O.DO 
OFn S(I«Lf4l«0T 

VLx 1.00«DE*(S( I.L.M + Sn.Lf lin/S(ItL*10l 

VH- DF*S( ItLt9)/S( I.LtlOl 

RADZb VL’*VL'«>VH*VH 

S(I.M,l)x Sn.LtlKDT 

S(UM,2)x OT 

Sn«M,S)x S( I»L.5l*0E*St I,L*7» 

sn,M,«>= s(m»p»*vl-vh*( ^s^.l.lO)-l.oo>*sn.L,7)- 
l Sn«Lai)*SM.L.SM 
Sn,M,I0)< SntL.I0)«RAD2 
Sn*M,lll^ S( l.L.llHOF 
RAOo OSORTIRADZI 
CXs VL/RAO 
SXx VH/RAD 

S(I»M,16)b CX*Sn,L.I6)-SX«S( IfL«17I 
Sn»H,17)x CX^SI I«L«17)-»SX«S(ItLfl6l 
S(I.M«18)x Sd.L.IR) 

TXs CCX4S( I,M,16I )/(I.D&*S( ItLtlBI I 
S(I»M,19»= TX«sn,L> 19)-»SX*SI Itl*12» 

Sn.M,?0)s TX«SI I.L.?0)-»SX*S(ItL»13l 
IF ( ISW) 12,12,11 

11 CDUb S(I,L-i^ 1,1^) 
soils S( I,L-»1,15I 

SORs 50U/0S0RT(SU,M,10n 
SRTs (l.DO-COUI/SI I,M,10I 
Thx CDU»SRT-S0R*SI I .m,5) 

TTO- CDU«S( l,L,7)4S0K*Sn,M,in 

CSOC* OSORTIl.OO+SI I.L,7l*Sll,L,7I-TT0*TT0) 

FPRs CSOC/OSORTITP) 

S(I,M,4)« FPR«S(I,L.4> 

S( I,M,3)x (C0U«Sn,M.3)4lSI I.H,10»-1,D0)*S0R)*FPR/CS0C 
S(I,M,6 )b (SI I,L,6)-S0R«S(I,L,7)-SRT*Sn ,M,lin/FPR/TP 
S(l,M,7)x TTO/CSOC 

S(I,M,9lx (COU*SI I.L,9J*S0B*S(I,M,Rn/FPR/TP 
SI I,M,R)x ICOII*SI I,M,PI-S0R»SII,L.9)*SI I,M,10n/CS0C 
SI l,M,ll|x icon* SI I ,M,11)-S0R»SI 1 ,L,7)«SI I ,M,10n/FPR 
SI l,M,10)e TP*S( I.M.IOI 
Tl« SI1,M,17I 

SII,M,l7lx C0U«SII,M.I7)-S01I*SII,M,1R| 

sjii,m,ih)b cdu«si I .m.ia)4sou«ti 

12 SSIb si 1,M,19)*SII.M.19)«SII,M,20I*S(I,M,20I 
IF (ssn 13,13,1A 


000000 10 
00000020 
00000030 
000000*0 
00000050 
OOOOOOAO 
00000070 
OOOOOORO 
00000090 
00000 I 00 
00000110 
00000120 
00000130 
00000140 
00000150 
00000140 
00000170 
000001 RO 
00000190 
00000200 
00000210 
00000220 
00000230 
00000240 
00000250 
00000260 
00000270 
000002R0 
00000290 
00000300 
00000310 
00000320 
00000330 
00000340 
00000350 
00000360 
00000370 
00000380 
00000390 
00000400 
00000410 
00000420 
00000430 
00000440 
0000045Q 
00000460 
00000470 
00000480 
00000490 
00000500 
00000510 
00000520 
00000530 
00000540 
00000550 
00000560 
00000570 
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13 

S( ItM,12)> 

CDli*S« 1 .1 . 12)-Snil*S( 1 .1. Ml 

OOOOCSRO 


S( I.MtlB)- 

crm»s( i.i.i3i + snii=>s(ltL.i 2 ) 

■'''OOOSOO 


GO TO 300 


uOOOOiSOO 

14 

SMfMi 121- 

t S( 1 ,w PI*S 1 1 t .M, l«l*sn .M,20> )/SRI 

OOOOOf 10 


S( I.M,131- 

(SI 1,1'. l't*S(I.M.19)HS! I.M.lVMSl I.H,20» l/SSI 

OOOOOf.20 

300 

RETURN 


OOOOOf 30 


END 


00000640 
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C OtITHI 


SUBROUTINE OUTHK JM.P) ,AO.An»OM|,|PR,2,IO|M2) 

IMPUCIT R6Al*B IA-H.0-7) 

01 4ENSI0N S(3t7,?OI,TR(3«3)fTPl(3.3)«TR3l3,3),ZPnOi.Zm 
COMHON/STP/S 

COMMON /UNITS7UTS.inM,UTH,UTDfUTKM,0TR,UTKG,UTKW,UTMS2 
COMMON /SG/SGN 

NAMELIST/OUT/J,A.h,F.AI , 0M,W,F,UtPH| .UP,0T,TT 

NAMELI ST/OUTZ/A 1 ?, ON'S. W3 t AL AM3.ALAM4.AL AMS, V2, ALA. ALE « All 

NAMEL1ST/OUT3/ZP 


JMl*JM*l 

IF (IPR.EO.OI GO TO 1? 

C 00 10 K« 1.20 

CIO WRITE (6,999) K.ISd.J.K). v'«l.JMl) 

WRITE (6,1000) 

WRITE (6,1001) 

WRITE (6,10001 
C 

12 00 100 J> l.JM) 

IF ((IPR.EO.O).ANO.(J.GT.)).ANO.(J.LT.JMn) GO TO 100 
AI- 0ATAN2(0S0PT(S( l.J,19)«*24Sll,J,20)««?),S( 1.J.16) ) 
OM- 0.00 

IF (S(l,J,16).NE.l.i>0) OMe 0ATAN2(Sll,J,20>,Sll,J,19n 
OUM* OATAI.2(S(l,J.13l,S(l,Jtl2ll 
U> OUM-OM 

0UM1« Sll.J, 101-1. 00 
0UM2a OSORTISI l.J.10l)»S(l«Jt5I 
E> 0S0RT(0UM1**24^0UM2**2I 
F>U 

IF (E.NE.0.00) Fs 0ATAN2(0(iM2,0UMli 
W> U-F 

PHI« 0ATAN(S(1,J.7I) 

H« S(l,J,4)*0S0RT(S(l,J.10n/0C0S(PHII 
H> OABS(H) 

UP- 0ATAN2(S(l*J,9I.S(l,Jvl!)-^S(l*Jt6)) 

OT- S(ltJ*2) 

TT- S(l.J.l) 

IF (J.GT.l) GO TO 40 
C 

CPHI- OCOSIPHII 
Gl- S(ltitR)*CPHl 

G2- S(ltlt9)«0S0RT(SI )tl*10)l*CPHl 
C 

C SGN- 41.00 IMPLIES ALAM4 IS POSITIVE 
C SGN- -l.OO IMPLIES ALAM4 )S NEGATIVE 
C 

ALANS- (SGN41.00)«P|/2.00 
ALAM4- SGN*0S0RT(G1**24G2**2) 


00000010 

00000020 

00000030 

00000040 

ooooooso 
00000060 
00000070 
OOOOOORO 
00000090 
00000100 
00000110 
00000120 
00000130 
00000140 
OOOOOISO 
00000160 
00000170 
000001 RO 
00000190 
00000200 
00000210 
00000220 
0000 () 2^0 
00000240 
000002S0 
00000260 
00000270 
000002RO 
00000290 
00000300 
00000310 
00000320 
00000330 
00000360 
000003SO 
00000360 
00000370 
000003R0 
00000390 
00000400 
00000410 
00000420 
00000430 
00000440 
000004S0 
00000460 
00000470 
000004RO 
00000490 

ooooosoo 

ooooosio 

OOOOOS20 

OOOOOS30 

OOOOOS40 

OOOOOSSO 

OOOOOS60 

00000S70 
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IP < AL6M‘».eo.o.no) r,o in 
ALAM5» n«TAN?( Sr,N*r,l ) 

i<» wi» AtA'''>-Pi/?.nn 

ALI» OSORHI.nO/AnifAlAM* 

WDa HI 
AID- All 
OMO« OH I 
GO TO 110 
20 00 30 H>1,3 

DO 30 N« lt3 
TR3(M,NI» TRIM.NI 
30 TRllH,N)>i TRIM.NI 
IF IIPR) 52tlOO«32 
C 

AO WO- W 

AID- AI 
OMD- OM 

GO TO no 

50 00 51 M« 1,3 
DO 51 N« 1,3 
TR3(M,N)- 0.00 
00 51 IK-1,3 

51 TR3(M,N)- TR3<M.N)*TR1M,IK»*TR1::k,N) 

52 SI- 0S0RT(TR3(3,n«-2*TR3(3,2)**2) 

AI3- DATAN2l$!,TR3(3,3n 

0M3- 0.00 

W3- DATAN2ITR3(l,2),TR3(l,in 
IF (0ABS(Sn.t.T. 1.0-10) 60 TO 60 
0M3- 0ATAN2(TR3(3.1l.-TR3(3t2)) 

W3- DATAN2ITR3( 1.3).TR3l2t3)l 
60 2(21- E<‘0SIN(W34^OM3) 

ZI3)- E«0CnS(W3'«^0M3l 

ZIAI- TR3r',ll/l l.D0«TR3(3«3l) 

Z<5)- -TR3C3,2I/I l.D0*TR3(3,3*) 

ALAM3- Si 1»J, «)«($( l.J,10)«S(l,J,6)-SI 1>J,11))/H 
Y2- OSINIFl-DSINiPHI l+OCOS(F )'»r>COS(PHI l*S( 1, J, 11 ) /OSORTi 
1 siltjnon 
OUM- 1.00-E«*2 
A- A0*H*H/0UN 

zm- A 

ALA- .SOO«DSORT( 1 .01)/ ( A— 3«I UM ) )* I ALAM3-E*Y2> 

ALE- DSORTi 1.00/(A«DUM— 31 )* t Y2-E*ALAM3 ) 

ZimOIMZ)- ALA 

Z(2^I0IH2I> 0S1NIH3«0M3)*ALE 

Z<34^I0IM2)> 0C0SIW^.«0M3I*ALE 

OUM- Z.OO^inCOSiAI/Z.OO) )e*2*ALt 

ZiAt^iniH?)- DSINI0M3)*0UM 

ZI5fl01M2ls 1)C0SI0M3I*0(IM 

IF tIPR.EO.O) CO 10 100 

H3- W3/0TR 

0M3- 0H3/DTR 

A 1 3- AI3/DTR 

AI- AI/OTR 

OM- OM/OTR 

W- H/OTR 

F- F/OTR 

0- U/OTR 


000005RO 

000005RO 

00000600 

00000610 

00000620 

00000630 

00000640 

00000650 

00000660 

00000670 

000006RO 

00000690 

00000700 

00000710 

J0000720 

0C000730 

00000740 

00000750 

00000760 

00000770 

000007RO 

00000790 

OOOOOROO 

OOOOORIO 

0000082C 

00000A30 

OOOO0R4O 

OOC'>0R5O 

00000R60 

00000R70 

OOOOORRO 

G0700R90 

00000900 

OOOCO910 

0000C920 

03000930 

0000C940 

00000950 

00000960 

00000970 

00000980 

00000990 

00001000 

00001010 

00001020 

00001030 

000C1040 

00001050 

00001060 

00001070 

OOOOlOflO 

00001090 

00001100 

00001110 

00001120 

00001130 

00001140 





PMI» PhI/OTR 
UP« UP/OTP 

on 90 la ».5 
?pi n« ?( n 

7P' l*5t* ?(U101P?» 

WRITE (^.nUT^ 

WRITE (fc,0(iT2l 
WRITE (f>,rniT3) 

Ar A*UTRM 

0V= IDT*tJTKM/llTS»*nSOPT( l.no/AOl 
WRITE Ifc.lOO?) J 


= 1.51 


WRITE (6.1003) 

WRITE (b.lOlO) imi. I« 1.5) 
WRITE (6.1010) (7( I«irjIM?), I 
WRITE (6.1009) 

WRITE (6.)010) A.E.AI3.0M3.W? 
WRITE (6.10C5) 

WRITE (6.1010) F.PHI.IIP.OV 
100 CONTINUE 

IF (IPP..EO.O) RETURN 
TRITE (6.1000) 

WRITE (6.1000) 

WRITE (6.1006) 

RETURN 

110 CW= OCOS(WO) 

SWa OSIN(WO) 

Cla OCOS(AIO) 

Sla DSIN(AIO) 

COMa OCOS(OMO) 

SOMa OSIN(OMO) 

TR(1.3)= SW»SI 
TR(2.3)a CWasi 
TR(3.3)= Cl 
TRI3,l)a SI*SOM 
TR(3.2)a -SI*COM 
T»(l.l)= CwaCOH-SWaCI*SOW 
TR(1.2)= CW«SOM.SwaciacOM 
TR(2.1)a -SWacOM-CWaClasoM 
TR(2.2)a -SWaSOM+CWaCIacOM 
IF U.EO.l) GO TO 20 
GO TO 50 


999 FORMAT ( 19. 1P5020.R) 

1000 format ( iHfl. 'aaaaaaaaaaa*** <«««««a***««**a«**«a«*«*«***«aaa*a • ) 

1001 format (iHo.’)ir.H Thrust*) 

1002 format (IMO.'OTpn a*,I2I 

1003 format (IHO.'EOUlNOCTIAL O.E. 4N0 COSTATE/S.F.*1000. • ) 

1009 FORMAT ( IMO. 'CLASSICAL O.E.') 

1005 format ( 1HC.6X, *TRU* ANOMALY* . 13X. 'PH| ( DEG) * . 12X , *UPSI LON (DEG) 
I 9X, 'DELTA V (kM/S)*) 

1006 FORMAT UHO.'LOW THRUST* I 

1010 format (1P5023.I9) 

FNO 


op JO 11 50 
.>0001160 
000011 70 
0000 IIRO 
00001 190 
00001200 
00001210 
00001220 
00001230 
00001290 
00001250 
00001260 
00001270 
000012P0 
C0001290 
00001300 
00001310 
00001320 
00001330 
00001390 
00001350 
00001360 
00001 3’0 

oooonpo 

00001390 
00001900 
000019K; 
00001920 
00001930 
00001990 
00001950 
00001960 
00OC1970 
0000 19R0 
00001990 
00001500 
00001510 
00001520 
10001530 
00001590 
00001550 
00001560 
00001570 
00001580 
00001590 
00001600 
00001610 
00001620 
00001630 
00001690 
00001650 
00001660 
00001670 
00001660 
' .00001690 
00001700 
00001710 
00001720 
00001 730 
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n r> n n n 


C IHPLS 


oonnooio 


c 

c 

c 

c 

c 

c 

c 

c 


c 


calculates effect of one final impulse at max. of paimer vector 


SUBROUTINE IMPlSII>VI?,IpR.1TR.Z.OERZ»IOIM?I 
implicit REAL*R( A-H.O-S) 

dimension V(22*,UVI ?),V2I3l,RI3I,CM(3.3l,H(3»,Et3l ,CU3I 
OIHENSIUN ZZ(S).ZS(Si.Nll3I.Vll3).Z( I I.OERZI n.OZSiSl.ZinilOI 

COMMON /EVMP/ RTI2I*VT(21 
COMMON /A/ A, AMU. PI 

CaHMON/UNITd/UTS.(lTM.uTH,UT)*UTKH,OTR.UTKG.UTKH,:iTMS2 


NAMELIST/FIMI/F,llv,ZZ,Rl,Vl,R,V2.H,E,Y,VS.FS.IS,VO,CM 
namelist /FIM2/OZS 


DC N I» 1,5 

ziom« z( II 

A Z10(Ia5)» ZIIAIOIM2I 

KK« 0 

OF* PI/IO.OO 
5 F» -OF 

YS* -l.OO 
DO 10 I* 2,21 
F* FfOF 

CAL YFfF,Y(I),UY.Z10) 

IF (Ydl.LE.YSI r-O TO 10 
YS« YIII 
ISb I 
FS- F 

10 CONTINUE 
L 

YIII* Y(21I 
YI22I* YI2I 
FN« FS-OF 
FP* FS*OF 

C» tY(ISI*FP*«2-YC IS*I l•FS••‘2)-^YI IS-1IBFPBB2-YIISAIIPFNPB2I 
1 AlYI IS-1)*FS**2-YI IS)*FN**?I 

B= IFS*YCIS*ll-FP*vl ISI)-<FN«Y(IS a1I-FP*Y(IS-1>) 

1 •HFNBYt ISI-FS*YUS-1) J 

F. «-m2.ooyB) 

C 

CALL YFIF,YO,UY,ZIO) 

00 15 i* 1,2 
Rlin* RTill 
15 Vl( II* VTIII 
RK3I* 0.00 
VK3I* 0.00 
00 20 I- 1,3 

20 Vim* vim*ovi2»iiY( I ) 

P* ZCAI 


00000070 
00000030 
00000040 
00000050 
OOOOOONO 
00000070 
OOOOOOftO 
00000090 
00000100 
00000110 
00000120 
00000130 
00000140 
00000150 
00000160 
00C00I70 
00000 IRO 
00000190 
C CIO200 
Ol 00210 
00000220 
0C000230 
00000240 
00C00250 
0000C260 
00000270 
000002 BO 
00000290 
00000300 
00000310 
00000320 
00000330 
00000340 
00000350 
00000350 
00000370 
000003BO 
00000 390 
00000400 
00000410 
00000420 
00000430 
00000440 
00000450 
00000460 
00000470 
000004BO 
00000490 
00000500 
00000510 
00000520 
00000530 
00000540 
00000550 
00000560 
0OOC057O 
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Cn 2(5) 

IFLAG> I 
GO TO 200 
C 

25 DO 30 Is 1.3 
V2(I)e O.DO 
Rtl)s 0.00 
00 30 J«1.3 

V2(II« V2! I)*^CMn,J|»Vl(J) 

30 Rt I)s R( n-4CHI I,J)*A1 IJI 
DO 40 Is 1.3 
11= I+l 
12= l«2 

IF (I1.GT.3) 11= 11-3 
IF (I2.GT.3) 12= 12-3 
40 Htl)= R( I1)«V2< I2I-RI 12>«vr( III 
00 SO 1= 1*3 
11= !♦! 

12= U2 

IF (I).Gt.3l 11= 11-3 
IF (I2.GT.3) 12= 12-3 

SO em= (V 2 (iii*H(i 2 i-v 2 (i 2 KH(iin/AMu 

HMa 0.00 
VM> 0.00 
RAO= 0.00 
00 60 1= 1.3 
VMS VH4-V2( 11**2 
HM= HH-*H(I)**2 
60 RAO= RA0*R(I)**2 
RAOs OSORTIRAOl 
HHa OSORTIHNI 
00 70 1= 1*3 
Em= Edl-Rdl/RAO 
70 Hdl« Hd)/HM 

2Zd)= 1. 00/(2. DO/RAO-VH/AMUl 
OUn= 1.00*H(3) 

22141= Hdl/OUM 
22(51= -H(2)/0UH 
C 

P= 22141 
0= 22(SI 
I FLAG* 2 
GO TO 200 
7S 00 80 1=1.2 
22(4-11= O.DO 
DO 80 J= 1*3 

80 22(4-11= 2Z(4-|)-*E( J|*CM( J*ll 

KK= KK't-1 

C IF dPR.GT.O) WRITE (6.FIM1) 

C 

IF (ITR.GT.OI GO TO 140 
IF lKK-1) 120* 100*120 
100 00 110 1= 1*S 

2Sm« 22d) 

21om» 210d)4^0ER2m*1.0-2 
110 Z10d-»SI= 2d*I0IM2l«0ER2( UI0IM2)*1.0-2 

GO TO S 


OOOOOSRO 

0000OS40 

00000600 

00000610 

00000670 

00000630 

00000640 

000006SO 

00000660 

00000670 

000006AO 

00000690 

00000700 

OO000710 

00000720 

00000730 

00000740 

000007S0 

00000760 

00000770 

00000780 

00000790 

00000800 

0000081C 

00000820 

00000830 

00000840 

OOOOORSO 

00000860 

00000870 

00000880 

00000890 

00000900 

00000910 

OOOOQ920 

00000930 

00000940 

000009S0 

00000960 

00000970 

00000980 

00000990 

00001000 

00001010 

00001020 

00001030 

00001040 

0000 I oso 
00001060 
OP001070 
00001080 
00001090 
00001100 
00001110 
00001120 
00001130 
00001140 
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I 
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' <, 





c 


00001 ISO 

120 

00 130 Is i.S 

00001160 


nFR 2 ii)» ( 2 ?m>;smi*i .02 

00001170 


ozsmsOERzm 

0000 11 no 

130 

Z< lls 2S( II 

00001140 

C 

IF (IPR.GT.O) WRITE (6tFIM2l 

00001200 


GO TO 160 

00001210 

C 


00001220 

140 

00 ISO Is 1,5 

00001230 


zdis zzm 

00001240 

ISO 

CONTINUE 

000012S0 

C 


00001260 

lf.O 

IF (IPR.EO.O) RETURN 

00001270 


WRITE (6,1000) 

000012R0 


WRITE (6,10011 

00001290 


WRITE (6,10001 

00001300 


WRITE (6,10021 

00001310 


WRITE (6,10101 (2(1). Is 1,5) 

00001320 


ZZ(l)s Z(1I«UTKM 

00001330 


ZZ(2)s 0.00 

00001340 


OUMMYs Z(2I*«2'»Z(3)**2 

00001350 


IF (OUMHY.GT. 1.0-401 2Z(2)» OSORT(OUMMY) 

00001360 


ZZ(3)s 0.00 

00001370 


OUMMYs Z(4)SS2+2(5Jss? 

0000 13R0 


IF (DUMMY. GT. 1.0-40) 77( 3|s 2.00<'0ATAN(0S0«T(0UMMYI )/OTR 

00001390 


ZZ(4)s o.DO 

00001400 


IF ((Z(4).NE.0.DC).0R.I7(S).KE.0.D0)) ZZ( 4 ) =0ATAN2 I Z (4 ) ,Z (S I ) /OTR 

00001410 


ZZ(S)s 0.00 

00001420 


IF I(Z(ZI.NE.0.00).0R.(Z(3).NE.0.D0I) ZZ(S|sDATAN2(Z(2)«Z(3II/0TR 

00001430 


zz(S)s zzrs)-zz( 4 ) 

00001440 


WRITE (6,10031 

00001450 


WRITE (6,1010) ZZ 

00001460 


Fs F/OTR 

00001470 


WRITE (6,1004) F 

0000 14B0 


WRITE (6,100S) R1 

00001490 


WRITE (6,1006) UY 

0000 ISOO 


WRITE (6,1000) 

OOOOISIO 


RETURN 

00001520 

c 


00001S30 

c 


00001540 

C CALCULATES TRANSFORMATION MATRIX TO EQUINOCTIAL COORO FRAME 

00001550 

C 


00001560 

200 

AB= 1.004P*42*0**2 

00001570 


CH(l,l)s (l.D0-P<»«24-O*«2)/AB 

0000 15R0 


CM(2,l)s 2.00«P40/AB 

00001590 


CH(3,l)s -2.00*P/AB 

00001600 


CM(l,2ls CM(2«1) 

00001610 


CM(2,2)s ( 1 . 004 pss 2 .os* 2 )/AB 

00001620 


CH(3,2|s 2.00*0/A6 

00001630 


CH(l,3|s -CMC.l) 

00001640 


CM(2,3I» -CM0.2) 

00001650 


CM(3,3)s ( 1.00-P**2-0*»2)/AB 

00001660 


GO TO (2S,7S),IFlaG 

00001670 

C 


0000 16B0 

1000 

format ( IHO. ««ssssssss»s«sss»ss»*s«ss*s«s«ss****ss****s*s*«*s»' | 

00001690 

1001 

FORMAT (IHO, 'HIGH THRUST FINAL ORBIT*) 

00001700 

1002 

format (*o equinoctial O.E.'I 

00001710 


t 


9* 


I 




m 



w 

! -i 
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1001 FORMAT CO CLASSICAI O.F.M 00001770 

lOOA format CO FCCFN1RIC LniMG. «OFro » ',F?0,10) 00001730 

1005 format CO RA0IU5. VFfTCm » •♦1P3073.14J 000017A0 

1006 FORMAT CO IMPOLSF fURFCTlON = • , 1P3073. 16 1 00001730 

1010 FORMAT (lP3n?3.16» 00001760 

(; 00001770 

END 000017R0 
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CALLED BY IMPLSt CALL<i EVALMP 


SUBROUTINE VF(E«Y.U.Z> 

IMPLICIT REAL*8I A-H.0-4) 

DIMENSION U(3) ,Rlll . VI 3 t , AMI S.3 I t 


00 5 1» ItS 

5 x(i)= zm 

CALL EVALMP(X.F.1.00.AM,DtlMMr,2l 
Y= 0.00 
00 20 Is 1.3 
U( I Is 0.00 
00 10 Ks 1,5 

10 U( I|s U( I )>AM(K, n«;(5+KI 
20 Ys Yi'Ud l««2 
Ya DSORTIYi 
00 30 1= 1.3 
30 um- um/Y 
RETURN 
END 


00000010 

00000020 

00000030 

00000040 

00000050 

oooooooo 

00000070 

OOOOOOPO 

00000090 

00000100 

175). Xt5).Z(l* 00000110 

00000112 
00000120 
00000140 
00000150 
00000160 
00000170 
000001 RO 
00000190 
00000200 
00000210 
00000220 
00000230 
00000240 
00000250 
OOOOC260 
00000270 
000002 RO 
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C ITER NRS 

C NEWTON RAPHSQN NRS 
C 

C SPECIAL VERSION FOR RX« PmRTIAL OER. MATRIX, B DIM, V, 

C 

SUBROUTINE ITERIKOONT.NI ,FUNCT,PRTN) 

C 

IMPLICIT REAL*BU-H.O-$). INTERER II-NI 
C 

c 

C X VALUES OF THE INOEPENOENT VAi! I ABLESI INI TI AL tCURRENT .FINAL) 
C XS STEP SIZE TO PERIURB X:S TO COMPUTE PARTIAL DERIVATIVES 
C V VALUES OF THE DEPENDENT VARIaBLESICURRENT .FINAL I 
COMMON/XMMM/XI7) .XS(B).V(R) 

COMMON /INT/ITF, IPR. I OIM, lOlHZ.MAXNOI 
COMMON /t/tf.s.to.tfmin 
COMMON /OY/OYOT(B) 

COMMON /F/FLIH.KSTEP 
C 
C 

C ARRAYS USED INTERNALLY BY THE ITERATOR 
DIMENSION YNOM(R),XN(7).PIB.R).COEF(R) 

EQUIVALENCE! YNOM.COEE) 

C 

No 7 
Mo B 

I NORMS ITF 
NIol 

KOUNToO 
CALL FUNCT 
ITFo3 

KOUNToKOUNTeI 

FOoO.DO 

00 IB I«1.M 

15 F0-F0*Ym**2 

10 00 16 loi.N 

XNlIIoXin 

16 YNOMlIIoYin 
YNQMIMIe YIMI 
TFNoTF 

CALL PRTNIK0UNT.NI) 

WR1TE(6.1011)F0 
IFIFO.LE.FlIMIGO to 90 
IF (NI.6T.MAXN0I) GO TO BO 
C COMPUTE NUMERICAL PARTIAL DERIVATIVES 
WRITE (6.1013) 

00 17 lol.M 

17 P(l,M)o OYOTII) 

DO 25 Jol.N 
TEMPax(J) 

STEPoXSIJ)*OABSIXlJ)) 

IF ( (DABS! XU n.Lr.l. 0-10 ). CR.(KSTEP.EO.I)ISTEPbXSU) 

IF IDABSIXUn.LT. 1.0-10) WRITE 16.1014) 

XU)aXU)*STEP 
CALL FUNCT 
WR)TE(6,1000)XU) 

WRITE ( 6, 1001 MY! I ), lol.M) 


ooonoolo 
00000020 
00000030 
00000040 
00000050 
00000060 
00000070 
OOOOOOflO 
00000090 
DPOOOOOlOO 
SPOOOOOllO 
OP00000120 
00000130 
00000140 
00000150 
00000160 
00000165 
00000170 
000001 BO 
00000190 
00000200 
00000210 
00000220 
00000230 
00000240 
00000250 
00000260 
00000270 
000002 BO 
00000290 
00000300 
00000310 
00000320 
00000330 
00000340 
00000350 
00000360 
00000370 
00000380 
00000390 
00000400 
00000410 
00000415 
00000420 
00000430 
00000440 
00000450 
00000460 
00000470 
00000480 
00000490 
00000500 
00000510 
00000520 
00000530 
00000540 
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DO 20 l«I.M 

20 P( I«J)>(V( I )-VNnMI| u/step 
25 X«J»»TEMP 

KnuNT>KnuNT'»N 

MRITE(6.1002) 

DO 30 l»l«M 

WRITE(6tl001)(P( I.J)f jBl.MI 
30 CONTINUE 
DO 35 IbI.M 
35 COEFI I I— VNOMI I I 

CALL DCROUT(P.cnEE.ni-T.O.DO,M,l,INOI 
IE( IND.NE.OICO TO 85 
WRITE (6.1015) OE' 

DO AO Is l.M 

AC IF (DABStCOEFI I ) ).LI.1.0-I2) COEF(I)s O.DO 
WRITE(6.I003HC0EF( I ) , IsI.N) 

SNs COEF(M) 

WRITE (6.1012) SN 
DO 50 Jsl.N 
50 X( J)sXN(J)4'C0EF(J| 

TFsTFN ♦ SN 
iHALVsO 

51 IF (INORM.ECi.l) IIFsl 
CALL FUNCT 
ITFs3 

^OUNTsKOUNTAl 
FlsO.DO 
00 52 IsI.M 
>2 F1«F1 + Y( n **2 
WRITE(6.1010)F1 
IF(F1.LT.F0)60 to 55 
WRITE) ■>.1008) 

IF ( IHALV.EO.IO) GO 10 95 

iHALVsIHALVAl 

DO 53 Jsi,N 

COEF(j)sC0EF(J)/2.OO 

WRITE(6.1000)COEF(J) 

>3 X( J)sXN(J)-<-COEF(J) 

SNs SN/2.D0 
WRITE (6. 10121 SN 
TFs TFN ♦ SN 
GO TO 51 

>5 IF(NI-MAXN0I)70.70.80 
70 NIsNlAl 
FOsFl 
GO TO 10 
80 Nl»9999 

WRITE(6.1006) 

RETURN 
85 Nl»9999 

WR1TE(6.1007) 

RETURN 

90 WR1TE(6.1005)F0 
RETURN 
95 Nl»9999 

WR1TE(6.1009) 

RETURN 


00000550 
00000560 
00000570 
oonoo5«o 
00000590 
00000600 
00000610 
00000620 
00000630 
000006AO 
00000650 
00000660 
00000670 
00000680 
00000690 
00000700 
00000710 
00000720 
00000730 
000007A0 
00000750 
00000760 
00000770 
00000780 
00000790 
00000800 
00000810 
00000820 
00000830 
000008A0 
00000850 
00000860 
00000870 
00000880 
00000890 
000Q0900 
00000910 
00000920 
00000930 
000009A0 
00000950 
00000960 
00000970 
00000980 
000C0990 
00001000 
00001010 
00001020 
00001030 
0000 10 AO 
00001050 
00001060 
00001070 
00001080 
00001090 
00001100 
00001110 


1000 F0RHAT(/lX,lPn?3.lS» 

1001 FORMATUXt lP%r>7^. IS I 

100? FORHATI ?1H0PAKT IA| DtRlV MATRIX) 

1003 FORMATdlHOOEl x;>i fiu, / ( ) k , j 1 3 1 » 

1005 FORMAU<.HOFO=tlPh??. )S,??HrASF CONVERGEO. . ,F€R T If. ) 

1006 format 1 3«HO£XC6Ei'EI) ■ AXl^liM NUMBER OF ITERATIONS) 

1007 FORMAT! 16H0MATR IX SINMJLAR) 

100ft FORMAT! 11H0DELX:S ARh ) 

1009 FORMAT! 19HOMETHOO CANNOT WORK) 

1010 FORMAT!AHOFln,lPI-?3.15) 

1011 FORMAT!AHOFO=tlPI'73.15l 

in? format ! lOHO OFL U- *.lPO?3.i5) 

1113 FORMAT IROHO X!l)*nx(JI FOLLOWED BY CORRESPONDING Yl 
1)14 format !24H0 X!I)=n. SO i»xii)«xscm 
l:)15 FORMAT !15H0 OETFMMINFNT »,1P0;3 15) 

END 


0000 I 1?0 
00001130 
00001140 
00001150 
00001160 
00001170 
00001 IRO 
00001190 
00001200 
00001210 
00001220 
00001230 
00001240 
00001250 
00001260 
00001270 
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ITER NRN 
NEWTON RAPHSON NRN 

SPECIAL VERSION FOR ftXJ. PARTIAL OER. MATRIX, 6 DIM. v. 
SUBROUTINE ITERIKOUNT.NI ,FUNCT,PRTNI 
IMPLICIT REAL*RIA-H.n-S), INTEGER ( l>Nt 


X VALUES OF THE INOFPFNDFNT VAR I ARLESI INI T I AL .CURRENT ,F INAL ) 
XS STEP SIZE TO PERTIIRK X;S TO COMPUTE PARTIAL DERIVATIVES 
i VALUES OF THE DEPENOt-NT VAR 1 ARLES (CURRENT ,F INAL ) 
COMMON/XMMM/X ISI.XSISI.VIA) 

COMMON /INT/ITF, IPR. IDIM, lOIMZ.MAXNOI 
COMMON /T/TF,S,T0.TFMIN 
COMMON /OY/OVOT(Al 
COMMON /HIGH/0VI1.DV1?,IHI,ITR 
COMMON /F/FL1M,KS1EP 


ARRA'S USED INTERNALLY RV THE ITERATOR 
OIMENSION YN0M(6) ,XN(5) .P(6,6l ,C0EF(6) 

EQUIVALENCE! YNOM.COEF I 
C 

No 5 
Mo 6 

INORMo ITF 
N1«l 
KOUNToO 
ITR* 0 
CALL FUNCT 
ITF-3 

KOUNToKOUNT-»l 
FOsQ.OO 
DO 1$ Iol,M 
1'. F0sF04^Y( 11**2 

10 DO 16 I»1,N 
XN( n-XI II 
II. YNOHdloYlI) 

YNOM(M|s Y(M) 

TFNoTF 

CALL PRTNIKOUNTtNII 
WRITE(6,1011IF0 
IFIFO.LE.FLIMIGO to 90 
IF INI.GT.PAXNOI I GO TO RO 
C COMPUTE NUMERICAL PARTIAL DERIVATIVES 
WRITE (6,10131 
00 17 Isl.M 
17 P( I,M)o DYOT( I) 

DO 25 Jsl,N 

ITRe J 
TEMPsXlJI 

STEPsXS! J)*OABS(X(JI) 

IF ( (DAflSIx: jn.LT.I.O-lOl.OR.lKSTEP.EO.m STEPnXSIJI 
C IF (OABS(X(J)I.LT.l.D-lOI WRITE (6,10161 
X( J)oX| JI4.STEP 


00000010 
00000020 
00000030 
00000040 
00000050 
00000060 
00000070 
OOOOOORO 
00000090 
DPOOOOOlOO 
SPOOOOOllO 
DP0U000120 
00000130 
00000140 
00000150 
00000160 
00000170 
00000175 
00000 I RO 
00000190 
00000200 
00000210 
00000220 
00000230 
00000240 
00000250 
00000260 
00000270 
000002RO 
00000290 
00.00300 
00000310 
00000320 
00000330 
00000360 
00000350 
00000360 
00000370 
000003R0 
00000390 
00000600 
00000610 
00000620 
00000430 
00000660 
00000650 
00000660 
00000670 
000006RO 
00000690 
00000500 
00000510 
00000520 
00000530 
00000560 
00000550 
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CALL FUNCT 

00000560 


WAITF(6,luOO)X(JI 

00000570 


MA|TE(8,100] M V( 1 1 ,l<] .Mt 

00000580 


DO 20 loltM 

00000590 

20 

P( If J|B( V( 1 )-VN0l«( 1 1 ) /STEP 

00000600 

25 

XU)-TEHP 

00000610 


K0UNTsK0UNT«N 

00000620 


WAITE(6,1002I 

00000630 


00 30 IslfM 

00000640 


WAITElfcflOOntPilfJIfJolfMI 

00000650 

30 

CONTINUE 

00000660 


DO 35 I-1,M 

00000670 

35 

COEt ( n— VNOM( I ) 

00000680 


CALL OCROUT(P,COEFfi>TfO.OOf<4,l«INO> 

00000690 


IP( INO.NE.OIOO TO 85 

00000700 


DO 40 Is IfM 

00000710 

1 

IF (OABSICOEFI in.LT.l.O-IOl COEFIIls O.DO 

00000720 


NRITE(6,1003)(C0EF( 1 1, Isl,N) 

00000730 


SNs COEFIMI 

00000740 


NAITE (6fl012) SN 

00000750 


DO 50 JalfN 

00000760 

50 

X( JlaXNIJI^COEFIJ) 

00060770 


TFoTFN ♦ SN 

000U0780 


lHALV-0 

00000790 


IF (INORM.EO.l! ITFel 

00000800 


ITR. 0 

00000810 


CALL FUNCT 

00000820 


lTF-3 

00000830 


KOUNTsKOUNTi-I 

00000840 


FlsO.OO 

00000850 


00 52 l«lfM 

00000860 

52 

F1»F1+Vni4*2 

00000870 


WRITE(6fl010IFl 

00000880 


IFIFl.LT.FOIGO TO 55 

00000890 


WRITEI6tl008l 

00000900 


IF ( IHALV.EO.IO) GO TO 95 

00000910 


IHALV>lHALV4l 

00000920 


DO S3 0*1 fN 

00000930 


COEF(j)sCOEF(JI/2.00 

00000940 


WRITE(6,1000IC0EF(J| 

00000950 

53 

X( J|sXN(J) 4-C0EF( Jl 

00000960 


SN- SN/2.00 

00000970 


WRITE I6fl012l SN 

000009B0 


TF- TFN ♦ SN 

00000990 


GO TO 51 

00001000 

55 

IFINI-MAXN0I)70t70fR0 

00001010 

70 

NI-N141 

00001020 


FO-Fl 

00001030 


GO TO 10 

00001040 

80 

N 1-9999 

00001050 


WRITE(6tl006) 

00001060 


RETURN 

00001070 

85 

N I -9999 

60001080 


WRITE 16. 1007 1 

00001090 


RETURN 

00001100 

90 

WRITE(6fl005)F0 

00001110 


return 

00001120 
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* 


.U- 


1 ; 




t, 


95 

NIs9999 

00001130 



MR|TE(6,1009| 

00001140 



RETURN 

00001150 


1000 

FORMAT* /;X,1P0?3.15» 

00001160 


1001 

F0RMAT(lJ',lP5n23.15» 

00001170 


1002 

FnRMAT(2lH0PARTiAL 0I-R|V MATRIX! 

00001 IRO 


1003 

FORMATI IIHOOELXSS ARi-/( IX , 1F023, 15 ) ) 

00001190 

\ 

1005 

FORMAT! 6H0F0-.1P022. 15«23HCASE CONVERGED.. .FERTtG) 

00001200 


1006 

FORMAT! 38H0EXCEEnFD MAXIMUM NllMhER OF ITERATIONS) 

00001210 

, 

1007 

FORMAT! 16H0MATRIX SINGULAR) 

00001220 


lOOH 

FORMAT! 11H00ELX:S ARM 

00001230 

•* 

1009 

FORMAT! 19K0METH00 CANNOT WOEK) 

00001240 


1010 

FORMAT !6H0Fl=,lPn?3. 15) 

00001250 


1011 

FORMAT! 4HOFO«,IP023. 15) 

00001260 


1012 

FORMAT !10H0 DEL IF -.1P023.15) 

00001270 


1013 

FORMAT !40H0 X!II-fOXII) FOLLOWED BV CORRESPONDING V) 

000012R0 


1016 

FORMAT !26H0 X!I)bO. SO OX ! 1 )<iXSI I ) ) 

00001290 



END 

00001300 



1 


A 


I ‘I 



'H ■ 


i if 

[ 
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C TBAJ/TRAJPCS 

c 

C SEP AND HK.H thrust 
C 7/14 DIM. WITH POWER UEr.HAnATION. 

c this routine sets up the input to the integrator which 
C EXTRAPOLATES THE 1RAJ>-C*URV FROM INITIAL TIME TO 
C PINAL TIME. IT ALSO EVALUATES THE CHANGE IN TP AND 
C the error in the PINAl CONDITIONS. 

: this program is called nv iter or ry control 

C IT CALL the subprogram mhPCG (PREO-CORR) 

C MIN J, MAX H. 

C P DIM. 2ERP. T.C. OPTIONS. 

C KOP=l— ALL 5 PINAL O.E. FIXED. «2— A.E.l ONLY PIXEO. 

C 

C 

SUBROUTINE TRAJ 
C 

IMPLICIT REAL«B(A-H.O-S). INTEGER M>N| 

C 

COMMON /XMMM/ZLOI7). STFPIR). ZERFIBI 
COMMON /TRA/TFMAX, OTO. UEB, EWI14J 
COMMON /Z/2I14I. UERZ(14| 

COMMON /INT/ITP. IPR. IDIM, I0IM2, NIMAX 
COMMON /T/TF. SO. TO. TFMIN 
COMMON /ELEM/ZPO(7), ZPFI5I 
COMMON /DY/OYOTIR) 

COMMON /TC/NOP 

COMMON /Hl6H/DVIl.nvi2tlH| 

COMMON /A/A. AMU. PI 
COMMON /NOO/NODE 
C 

EXTERNAL FUNCT. OUTP 

DIMENSION PRMTISI. AUXI 16.141. DERZII 14I.0PISI 
C 

IF ll|HI.E9.n.0R.(|H|.E0.4|) GO TO 9 
C 

CM t THRUST 
C 

UP« IPI/2.00I4ZLOI n/DS0RT(l.O04-ZLOIll««2) 

CUP« OCOSIUP) 

XK> CUP«( .7SDO«.2S0O»7L0(2:/0S0RTIl.O042L0l2)**2l) 
OUM- ll.OO+CUP*XK)»liSORTI I CUP-XK I /ICUP^XK 1) 

XJa OUM*2LO(31/OSORT( |.004Z'0(3I*»2) 

JM> 2 

VAR- 2POI3) 

IP INOOE.EO.OI VAR- ZLOIS) 

CALL MAINEIO.OO.O.OO.XK.UP.XJ.l.OO.l.JM.DP.OVIll 
CALL OUThK JM,PI.?P 0( 1 ).ZPOI2I.VAR.iPR.Z.IDIM2) 

IP INOOE.EO.OI GO TO 4 
ZII0IM244I- Zl ID1M2*4)*ZL0I5I*ZI5I 
Zl 101M245I- Zl I01M2 *SI-;lOI5t*ZI4| 

4 DO S |> 1.9 

9 ZII4I01M2)« ZL0I4I*ZI IeI01M2'«1.04 

DO 6 I- 6.T 
ZIII- ZPOIll 
6 ZI|4lOIM2l> ZLOin 

C 


nonooolo 
00000020 
000000X0 
00000040 
00000090 
00000060 
00000070 
OOOOOOBO 
00000090 
000001 00 
000001 10 
000001 20 
00000130 
00000140 
00000150 
00000160 
00000170 
000001 BO 
00000190 
00000200 
00000210 
00000220 
00D0C230 
00000240 
00000290 
00000260 
00000270 
00000280 
00000290 
00000300 
00000310 
00000320 
00000330 
00000340 
00000350 
00000360 
00000370 
000003B0 
00000390 
00000400 
00000410 
00000420 
00000430 
00000440 
00000490 
00000460 
00000470 
000004BO 
00000490 
00000900 
00000910 
00000520 
00000930 
00000940 
00000990 
000C0560 
00000970 
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C LOW T.'iRUST 


000005RO 


<» 0T« (TF-T0)/( lOlN I i « IF-TOI/OTOKt.DOl 

prmtuib to 

PRHT<2|» TF 
PRMTO)« OT 
PRMT<A)> UEB 
C 

IF n 1H].E0.2).0R.( IHI.F0.3) ) GO TO 15 
C 

C 7 IS A VECTOR OF STA.E ANP COSTATE 
DO 10 I>1«I0IM2 
7lll»7POin 

10 7< l4lDIH2)e 2L0( 1 1 

C 

C EW are error HE1GHTS--INPUT TO THE INTEGRATOR 
C 

15 00 20 l-l.IOIM 

20 OERZI !I-EW( II 

CALL THE P-C INTEGRATOR 

CALL 0HPCG(PRMTt7tPFRZ. 10IM»|HLF«FUNCT.0UTP,AHX) 

IF (IHLF.GT.10) GO TO 100 

2 IS NOW THE final O.E.. 

ZERF THE ERROR IN THe FINAL CONDITIONS 

HbO.DO 

DO 30 I«UI0IM2 
30 H- H Z( I47|»0ERZ( II 

ZERF(6I» Z(13)*1.D-3 
ZERF(7I- Z(15|*l.D-3 
PY0T(6I- 0ERZ(13)*1.0-3 
OYDTOI* 0ERZ(lA)«l.O-3 
TF1>TF«(STEPISK1.00) 

CALL FUNCTITFltZfPERZn 
HlsQ.OO 

DO 35 I>1,I0IM2 
35 Hl-HlfZ( I^TIPOERZin I 

OYOTieiB (Hl-HI/CTFl-TF! 

ZERF(B)b H -1.00 

FINAL CONDITION OPTION BRANCH 

GO TO (40«50)t NOP 

40 DO 45 laltS 

ZERF(I). Zdl -ZPF(l) 

45 OYOTMI- OERZdl 

RETURN 

50 ZERF(4|- (Z(3l*Z(9)-Z(2l*Z(10ll*l,0-3 
ZERFI5I- (Z(5l*Z(ni-7(4|*Z(12ll»l,0-3 

0Y0T(4)<i 0ERZI3)«ZI9|«Z(3)*0ERZ«9)-DERZ(2l*m0l-Z (2)*0ERZI10I 
0YOT(«|. OYOT(4|*l.n-3 

0Y0TI5I- 0ERZ(5l*Zdll-»Z(5l«0ERZdll-0ERZ(4|*Zd2l-Z(4|a0ERZ(12l 


00000540 

OOOOCGOO 

OOOOOfclO 

00000620 

00000630 

00000640 

00000650 

00000660 

00000670 

000006RO 

00000640 

00000700 

00000710 

00000720 

00000730 

00000740 

00000750 

O00PO760 

00000770 

000007RO 

00000740 

OOOOOftOO 

OOOOORIO 

OOOOOR20 

00000630 

00000640 

000006^0 

00000660 

00000670 

00000680 

00000640 

00000900 

ooooo9;o 
00000920 
00000930 
00000940 
00000950 
00000960 
00000970 
00000960 
00000'^90 
00001000 
00001010 
00001020 
00001030 
00001040 
00001050 
00001060 
00001070 
0000 lORO 
00001090 
OOOOllOO 
00001110 
00001120 
00001130 
00001140 
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0VDT(5l« OVDTC^I*! .0-3 
t 1M1.LT.3I GO in 60 
C 

C FlNAl HIGH Thrust IMRIILSL 

c 

CALL |MRLS(0VI?,1RR.0.2.nFRZtlDIM2i 
C 

60 ZERFm> zm - 7RFm 

0UM1= 0S0RTCZ121**? ♦ 7(31**21 
7FRF(?1= OUMl - 7MF(P) 
nu'«2= 0S0RT(Z(A|*«2 + 7I5(**21 
ZERF(31* DUMP - 7PF(3) 
nvoTm« oERzm 
0YDT(2)= 0.00 
DVOTOl* 0.00 

IF (OUMl. GT. 1.0-121 nvOT(21» 

IF (DUM2.GT. 1.0-121 0VDT(31» 

C 

C iPEClAL CASE, E*0 AND/OR 1=0 
C 

IF (7PF(21.NE. 0.001 GO TO 70 
ZERF(21= Z(21 
ZERF(4)s 2131 
0TDT121* 0ERZ121 
0V0T(6I= DERZ(3I 
70 IF (ZPF131.NE.0.n01 RFTURN 

ZERF(31= 2(61 
ZERF(31= 2(51 
DY0T(3!= 0ERZ(6I 
0Y0T(51= 0ERZ(51 
RETURN 
C 

100 Ir (IHLF.EO.III WRITE (6,10001 

IF ( lHt.F.EO.121 WRITE (6.10011 

IF (IHLF.E0.131 WRITE (6,1002) 

STOP 
C 


00001150 
00001160 
00001170 
0000 IIRO 
00001190 
00001200 
00001210 
00001220 
00001230 
000 T 1260 
00001250 
00001260 
00001270 
0CO012R0 
00001290 
00001300 
00001310 
00001320 
00001330 
00001360 
00001350 
00001360 
00001370 
000013RO 
00001390 
00001600 
00001610 
00001620 
00001630 
00001660 
00001650 
00001660 
00001670 
OC0016RO 
00001690 
00001500 
00001510 

OF THE ORIGIEiAL INCREMENT HA00001520 

00001530 
00001560 

BOUNDS ARE WRONG 100001550 
00001560 


1(100 FORMAT (6Br«0 THE NUMBER OF BISECTIONS 
IS EXCEEDED 10) 
lUCl FORMAT (27H0 INITIAL IEJCREMENT IS ZERO! 

1002 FORMAT (56H0 INITIAL INCREMENT HAS WRONG SIGN OR 
END 


( 2(2)»DER7(2) ♦ 7 ( 3) «DER2 ( 3) ) /DUMl 
(2(6)=06R2(6I ♦ 2(5l*0ER2(5n 'DUM2 
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C TRAJ/TRAJPCN 
C 

C NFP AND HIGH THRUST. 

C this RnuTINE SETS UP In*- IHPliT TO ThF INTFORATOR WHICH 

c extrapolates The ira.i-cicrt fro*' initial time to 

C PINAL time. it also RVAIUATES ThE CHANGE IN TP ANR 
C THE ERROR IN THE PINAL CONOITIONS. 

C This PROGRAM IS CALLEO Bv ITER OR BY CONTROL 
C IT CALLS The subprogram ohPCG (PREDICTOR CORRECTOR) 

C NIN J, HAX H. 

C f> DIM. ZERP. T.C. OPTIONS. 

C 40P»1 — ALL 5 PINAL O.E. HXEO, =2--A,E.I ONLY PIXEO. 

C OVOT USED ONLY IP ITR= 0 
C ‘His 1 NO HIGH thrust 
C >22 INITIAl impulses 

C >32 INITIAL AND ONE FINAL IMPULSE 

C > A PINAL IMPULSE 

C UHEN IHI>2 OR 3« ZLO(5l AND ZERPISI ARE DUMMIES. 

C 

C 

SUBROUTINE TRAJ 
C 

implicit REAL*«(A-h.O-$», integer (I-NI 

c 

COMMON /XMMM/ZlO(B» . OIIPMYIS): ZERFI6) 

COMMON /rRA/TPMA>, DTO. OER. EW( 10) 

COMMON /Z/ZdO). OERZnO) 

COMMON /INT/ITF, IPR, IDIM, I0IM2, NIMAX 
COMMON /T/TF, SO, TO, TFMIN 
COMMON /ELEM/ZPOIS). ZPFISI 
COMMON /DY/0V0TI6) 

COMMON /TC/NOP 

COMMON /POMER/PKW,CC.AMO,AO,AltA2«A3tIPOM 
COMMON /A/A, AMU. PI 
COMMON /HIGH/0VI1.0VI2,IHI,ITR 
COMMON /E/FL1M,KSTEP 
C 

EXTERNAL PUNCT, OUTP 

dimension PRMTI5I, AMX(16,10), OPIS), ZS(6) 

C 

IF ((iHi.EO.n.OR.I IHI.EO.4)) GO TO 9 
:F ( ITR.NE.l) GO TO A 
00 3 I >1,6 
3 ZSm>ZERFtn 

A IF (ITR.CO.A) GO TO 70 

IF ( ITR.E0.5) GO TO bO 

HIGH THRUST 

UP> «PI/2.00)«ZL0( 1)/0S0RT( l,b04^ZL0( 1)**2) 

CUP= DCOS(UP) 

XK> CUP*I ,7JOO*.2SOO*7LO(2)/OSORT(1.00*ZLO(25**2)) 
OUM> ( I.OO'»CUP>XK l>nSORT( (CMP-XK)/(CUP*XK) ) 

XJs 0UM>ZL0I3)/CS''RT( l.DO^ZLO(3)**2) 

JMs 2 

CALL MAINE(0.D0.0.00,XK,UP,XJ,1.00, 1. JM,0P,DVI 1 ) 
CALL 0UTHIIJM,P1,ZP0I 1 ) . ZPOI 2 ) ,0.00, 1 PR ,Z , I DIM2) 
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00 5 |s I.IOIH? 

5 zn+ioiM2)s 2Loi<it*7n«iniM2i*i.o4 

c 

C NEP 

c 

9 OTs (TFMOI/I lOtNM nF-TO)/OTO)«1.00) 

PRNTm= TO 

PRNT(2)s TF 
PRMTJ31* OT 
PRHTt«)> UEB 
C 

C 2 IS A VECTOR OF STA1E ANO COSTATE 
C 

IF 1 1 IH1.E0.2).0R.( IHI.F0.3)I GO TO IS 
00 10 I«1.I0IM2 
2m>2Pom 

10 21 1«10]M2)» 2L0I I I 
C 

C EW ARE ERROR WE I6HTS-- INPUT TO THE INTEGRATOR 
C 

IS 00 20 lol.IOIM 
20 DERZIIIsEWin 

C 

C FOR ITF LT 3 USE NORM CUTOFF CONDITION 
C 

IF IITF.LT. 31 TF=1FMAX 
C 

c CALL the preoictor-corrector integrator 
C 

CALL 0HPCGIPRMT*2.nER2«10IH,lHLF,FUNCT»0UTP.AUX) 

IF I1HLF,GT.I0I GO TO 100 
C 

C 2 IS NOW THE final 0.E.« 

C 2ERF THE ERROR IN The FINAL CONDITIONS 
C 

HcO.OO 

00 30 l«ltl0IM2 
30 Hn H ♦ ZII'FSI^DERZin 
2ERFI6IS H -1.00 
IF IIHI.LT.3I GO TO 3S 
C 

C FINAL IMPULSE 
C 

PSI» I2?31*2C71-2(2)«2IRI IPl.0-3 

PSIDOTs DER2m«2(7|-F7(3l«DER2(7l-2(2)»OER2(R)-OER2l2)«2(BI 
PSIOOTs PSID0T*l.n-3 
C 

CALL IMPLSIOVI2,lPR.lTR,Z,OER2tIOIM2) 

C 

C FINAL CONDITION OPTION BRANCH 
C 

3S GO TO lAOtSOIt NOP 
C 

AO 00 AS Isl,I0IM2 

2ERFI 11= 2( n -2PFC I I 
AS UVOTin= DERZm 


GO TO SS 
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non n o o o ooo 


50 

znt - 7f>nn 

00001150 

00001160 


0UM1= 0S0RT(7« 2»*»2 ♦ ZI3)**2) 

00001170 


ZERF(2)r OUMl - 

00001180 


0UM2s 0S0RT(Z(4t««2 * Z(5)»«2) 

00001190 


ZE((FI3)s DUM2 - ZPF(3I 

00001200 


ZERFI4IS (Z(3I*ZI7| - Z(2l«Z(An*1.0-3 

00001210 


ZERF(5I« IZ(5I4Z(4) - Z 1 4 »«Z ( 10 ) >» I .0-3 

0Q001220 


ovomis oERzm 

00001230 


OYOT(21s 0.00 

00001240 


0Y0T(3I= 0.00 

00001250 


IF lOUMl.GT. 1.0-40) nvOT(2)= ( Z 1 2 )«0ERZ ( 2 ) ♦ Z 1 3 ) *DERZ 1 3 ) ) /0I Ml 

00001260 


IF (0UM2.GT. 1.0-40) HY0T(3)» I Z ( 4 )'#0ERZ 1 4 ) ♦ Z 1 5 ) *0BRZ (5 ) ) /D1 M2 

00001270 


DY0TC4)= DERZ(3)*Z( /)+Z(3)*OERZ(?)-OERZ(2)'»Z(8)-Z(2)*OE»Z(ft) 

00001280 


DYDT(4)=DYDT(4)*1.0-3 

00001290 


DYDT(5)= DERZ(5)*ZI'»)*Z«5)*DERZ«9)-0ERZ(4)*Z( 10)-Z(4)»0ERZ( 1C) 

00001300 


0Y0T|5)=0Y0T(5)*l.O-3 

00001310 


IF (IHI.EO.I) GO in 55 

00001320 


IF (IHI.EO.4) GO in 52 

00001330 

DUMMY 

00001340 

00001350 


ZERF(5)» ZLOI5)-1.00 

00001360 

00001370 


0YDTI5)* O.DO 

00001380 


IF (IH1.LT. 3) GO 10 53 

0C001390 

52 

ZERF(4)= psi 

00001400 

00001410 


OYOT(4)a PSIOOT 

00001420 

53 

IF (ITR.GT.O) reiurn 

00001430 


00 54 |s 1,6 

00001440 

00001450 

54 

zsm» ZERF(I) 

00001460 

55 

IF lIPOW.EO.n GO TO 60 

00001470 

00001480 


*4a 1.00-A1*TF 

00001490 


0Y0T(6)s A1«H/A4 

00001500 


RETURN 

00001510 

60 

81= 0EXP(-A2*TF) 

00001520 

00001530 


A4s 1.00'»'A1*(B1-1.00-^A2«A3*TF) 

00001540 


0Y0T(6)= A2*H*(-B1/(B1-A3»+AI*(B1-A3)/A4) 

00001550 


RETURN 

00001560 

70 

00 75 I« 1,3 

00001570 

00001580 

00001590 

00001600 

75 

zERF(n> zsm 

00001610 


OUMs DUMMY! 4) 

00001620 


IF (KSTEP.EO.O) OIIM* DUM4ZL0I4) 

00001630 


ZERF{4)» ( 1.00*OUM)*ZS(4) 

00001640 


ZERF(5)= ZS(5) 

00001650 


ZERF(6)= (1.004DUM) = ( ZS(6)-»1.00)-1.00 

00001660 


RETURN 

00001670 

80 

DO* 85 1= 1,6 

00001680 

00001690 

85 

zERF(i)= zsm 

00001700 


ZERF(S)= ZS(5)40UMMY(5) 

00001710 





RETURN onnoi7?o 

C 00001730 

100 IF (lHLF.E0.il) WRITE (^•10^0) 00001740 

IF IlHLF.EO.l?) WRllE (6.1001) 00001750 

IF (1HLF.E0.13) IpIRIIF (6,100?) 00001760 

STOP 00001770 

C 00001 7R0 

1000 FORMAT (60HO THE NUMBER OF BISECTIONS OF THE ORIGINAL INCREMENT HA00001790 

IS EXCEEOEO 10) ODOOIROO 

1001 format (?7H0 INIIUI. increment is ZERO) OOOOIRIO 


1002 FORMAT (54ho INITIAL INCREMENT HAS WRONG SIGN OR BOUNOS ARE WRONG )00001fl?0 


FNC 


00001B30 


1 # ' 

h 

t 

V 

\ 

H 

■4 I 
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C OIJAO 


000000 »0 

oooooopo 


this is a HnOIFIEC OIIAt.MAIItPF PROGRAM FOR VffTOR VALIlFO FOMCTIONS. 00000030 
CliMPlITES INTEGRAL OF I**- FUNCTION C, lOR M) OVER X FROM XL TO XI). ThEOOOOOO^O 
RESULT IS Y. ROUTINk USES A 4 POINT GAUSS OUAORATURE. OOOOOOSO 


C 


C 


OOOOOOGO 

00000070 

orooooRO 



subroutine 0UA0(XL«XU,FCT.V.2,r.,H,NI 

0' 1000090 
00000100 


implicit REAL^ni A-H.O-S). integer ii-ni 

00000105 


DIMENSION VIll, Hill. cm. 7(11 

ooooniio 

00000130 


As .5D0*(XU4XLI 

00000140 


B= XU-XL 

00000150 


C« .4305681557970262‘J00’>B 

00000160 


K»1 

00000170 


GO TO 50 

OOOOOIRO 

10 

00 20 I«1«N 

00000190 

20 

VI 11= .17392742256M7269300»Gm 

00000200 


C= .16999052179242B1300»B 

00000210 


K=2 

00000220 


GO TO 50 

00000230 

30 

DO 40 I=1«N 

000002«.0 

40 

vm= B*(V(n ♦ .3260V23774312730700*G( 1)1 

00000250 


RETURN 

00000260 

50 

CALL FCTIA-CtA+C.Z.H.Gl 

00000270 


no 60 l=ltN 

00000280 

60 

G(I)=G(I) * HID 

00000290 


GO TO (10.30)t K 

00000300 


END 

00000310 



oooonno r> 


OllAn/OUAOfl 

Tw!S IS A ►'oniPifn oiiAf'MAiiiuF ppnr.BAM i-nu vFrTOR valued fumctk'ns. 

COMPUTES The IMEr.RAl Oh TmF FUNCTION G (ifc OVER X FROM XL TO XU. 
THE RESULT IS V, ROUTINi- USES A ‘h POINT (;AUSS QUADRATURE. 


SUBROUTINE 0 UAD(XL.XU.FCT.V,;,G.H,N) 

c 

implicit REAL*R( A-m.O-SI 
DIMENSION VI IlfHI n.GI I) . 21 1 ) 

C 

As.SDO^IXU^XLI 

BsXU-XL 

C».A 80 lA 49 ?B 2 <.fl 7 #iR 12 U 0 *B 

K«1 

GO TO SOO 
10 00 20 I« 1 .N 

20 VI I »a. 5061 A 2 f>R 14 Sl-*Hl 300 -l*GM I 

C=. 39 B 33323 « 706 R 1 > 37 D 0 *B 
K»2 

GO TO BOO 
30 00 AO I*ltN 

AO VI n»V( n + . 11119051 ' 2266 B 72 A 00 »G( 1 1 
C*. 26276620 A 95 Rlf.AAVt)C*B 
K =3 

GO TO 500 
50 00 60 I>ltN 

60 V( n=Y( I »♦. 156 R 5332293 R 9 A 36 A 00 *G« 1 ) 

C=. 917173212 A 7 B 2 A 90 '>- 1 *B 
K=A 

GO TO 500 
70 DO BO I>ltN 

80 YdlsB*! Y( 1 )^. 1813 AIF 916 B 91809900 *GI I ) I 
RETURN 

500 CALL FCTIA-CtAACtZtH.G: 

00 510 lolfN 
510 Gm-Gin * Hin 

GO TO ( 10 t 30 « 50 * 70 >.K 
END 
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c ouAns? 
c 

C This is a MOIMFlfn OUAI mAUiWF INTFGHATKIN PHPGRAM for 
C veClOR VAtUFO FUNCTIdNS nF INF VARIAPLF. IT INTFGRATES 
C G (OR HI OVER X FROf« XI in XII. the RESULT IS V. 

C EVALUATION IS BY A 3? POINT GAUSS OUAORATURE FORMULA. 

C 

SUBROUTINE OUAD( >l . XU.FCT « V, 2 .G.H.NI 
C 

implicit REAL*R( A-H.u-Sl 
DIMENSION V( ll,2( n .G( 1I,H( 1) 

C 

As .5DO«(XU-XLI 
B= XU-XL 

C= ,498631930924740 'HOO-s-B 

Ksl 

GO TO SOO 
10 00 20 Isl.N 

20 Y(l)» .350930500473S04R30-2«G( 1 I 

C» .4928057557726341700*8 

Ks2 

GO TO 500 
30 00 40 Isl.N 

40 Vdls Yin ♦ .R137197365452ft350-2*Gm 

C= ,4B23811277937532200*B 

Ks3 

GO TO 500 
50 OU 60 Isl.N 

60 Y(l)s YIl) ♦ » 126960326546310300-1*61 11 

Cs .467453037968F69>'400*B 
Ks4 

GO TO 500 
70 00 80 IsltN 

80 ym= Yin + .171369314565107170-1*GII l 

Cs .4481605778830260600*6 
K=5 

) TO 500 

90 DO 100 Isl.N 

100 Y(I)s Y(II + ,214179490111133400-1*6111 
Cs .4246838068662849900*8 
Ks6 

GO TO 500 
110 DO 120 Isl.N 

120 Ydls Yd) ♦ .254990296311880880-1*6111 
C= .3972418979839712000*6 
Ks7 

GO TO 500 
130 DO 140 Isl.N 

140 ''dis Yd) ♦ .29?420467392677740-l*6d ) 

Cs .366091059370144R400*B 
Ksg 

GO TO 500 
150 00 160 Isl.N 

160 Yd)s Yd) * .329111113881809230 !*6d I 
Cs•.3315221334651O7^OD0*6 
Ks9 

GO TO 500 
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170 

on 180 1>1*N 

00000580 

1«0 

VM)a vm ♦ .36172»«»y05<.424253P-l*f.l n 

00000590 


r.« ,29385787ft6?0:*H 11^00*8 

00000600 


K>10 

00000610 


GO TO 500 

00000620 

190 

00 200 l»ltN 

00000630 

200 

vm« vm ♦ .39096947H935351S3n-l*f.m 

00000640 


C> .2539499544661 147000*8 

00000650 


Kb 11 

OOt/00660 


GO TO 500 

00000670 

210 

00 220 l>l.N 

00000680 

220 

vme Y( n ♦ .41#,i>5962113473378D-l*GII> 

0000r/>90 


C= .2106756380653176700*8 

00000700 


K>12 

00000710 


GO TO 500 

00000720 

230 

00 240 I-l.N 

00000730 

2^0 

vm» vm ♦ .438260465022019060-1*0(1) 

00000740 


C® .1659343011410638200*8 

00000750 


K«13 

00000760 


GO TO 500 

00000770 

250 

00 260 1-1. N 

00000780 

260 

Y(I)b Y(I) ♦ .45SB6S39347«819420-1*G(I) 

00000790 


C= .1196436811260685400*8 

OOOOdAOO 


K = 14 

00000810 


GO TO 500 

00000820 

270 

00 260 1*1 *N 

00000830 

280 

vm* vm * .469221995404022830-1*6(1) 

00000840 


C* .72235980791398250-1*8 

00000850 


K*15 

00000860 


GO TO 500 

00000870 

290 

00 300 I*1*N 

00000080 

300 

vm* vm + .4-/8193600396374300-1*6(1) 

00000890 


C= .241538328438691580-1*8 

00000900 


K*16 

00000910 


GO TO 500 

00000920 

310 

00 320 1*1 fN 

00000930 

320 

vm* 8*(vm ♦ .482700442573639000-1*6(1)) 

00000940 


RETURN 

00000950 

500 

CALL FCT(A-CtA*C«Z«H.G) 

OC000960 


00 510 I*1.N 

00000970 

510 

G(D* G(I) * H(I) 

00000980 


GO TO (10. 30. 50, 70. 90, 110. 130.150. 170.190, 210, 230. 250.270, 290 

.310)00000990 


1 ,K 

00001000 


END 

00001010 
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o o o o o rv oooooooooooooooooonnnoo 


f ART h? 


THIS SDfiPROr.RAM SFTS ThF VALIiFS FOR EARTH'S (ikPlTAL ELEMENTS 
AND CALCULATES THE MEAN aniimalv aT THE INITIAL TIME 
O.E. TAKEN FROM BATTIN, IMAA. EPOCH J9E.0 JAN. l.S, Jt)*?*. 36935. 
INPUT 

TL — INITIAL time. BEGINNING OF LOW THRUST TRAJ 
OUTPUT 

cm — EARTH'S SEMIMAJOR AXIS 
CI2I— EARTH'S eccentricity 
C l 31 — ARGUMENT OF PFHIH. 

CIA)— MEAN ORBITAL POTION 

CIS) — MEAN ANOMALY AT TL 

C(6) — COSINE OF ANGLE OF ORLIOUITY 

CI71— SINE OF angle iiF OBLIQUITY 

CIIM — LONG. OF N mag pole AT TIME Tl 

CUB) — LAT. OF N. MAG. POLE 

CI19) — EARTH ROT. FREO. 

CI20I — 2*PI 


SUBROUTINE EARTH 

implicit REAL*BI A-H.U-H 

COMMON /JO/ TL 
COMMON /TERRA/ Cl 20) 

COMMON /UNITS/UTS.UTM,UTH,UT0tUTKM,DTRfUTKG,UTKW,UTMS2 


cm n 1.00 
CI2)e .01672600 
CI3)a 102.2525300 
CIA)a .98560900 

MEAN anomaly at EPOCH 
AN= 100.15B1500-CI3) 

BOa AN 

C MEAN ANOMALY AT TIME TL 

ANa AN-'-C(A)*<TL-2A36935.00) 

ANaAN/360.D0 

ANaAN-IDINT(AN) 

C 

CI5)a AN»360.D0*0TR 
CI3)a CI3)*0TR 
C(A)a ClAiaOTRAUTO 

C 

DUMa 23.A5«0TR 
CI6)a DCOSIOUM) 

Cl 7)aOSlNIOUM) 

C 

C CALCULATE THE ROTATION MATRIX FROM EQUATORIAL TO GMT COORD. 

C 

BOa' B0Al2.00»CI2)-.?5n0*CI2)**3.*nSINIB0)+1.2500*CC2)**2 
1 *OSIN(2.no*BO)*l.OP33333333333300*CC2)<'*3*DS!NI3.00*BOI 
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V.. 


H0« BO'^CO) 

000003RO 

RX» -OCOS(BO) 

00000590 

RY« -OSINIBOI^CCB) 

00000600 

R»'08 0S0RT(RX««24RV««?) 

OOOOOMO 

RXa RX/RHO 

00000620 

RY« RY/RHO 

00000630 

C(B|8 rx 

00000640 

C(9»« -RY 

00000650 

C(10|8 O.DO 

00000660 

CUD* RY 

00000670 

C( 12)8 RX 

000006R0 

C(13)8 0.00 

00000690 

Cl 14)8 O.DO 

000007C0 

C(13)8 O.DO 

00000710 

C(16)8 l.DO 

00000720 

00000730 

Cl 17)8 2B9.900*07R 

00000740 

CI1B|8 7B.6*0TR 

00000750 

Cl 19)8 359.0170416008DTR*UTO 

00000760 

CI20)8 360.008DTR 

00000770 

Cl 17)8 Cl 17)+C' 19)8 | Tl-?436935.D0)/UTD 

00000780 

00000790 

RETURN 

00000800 

END 

00000810 
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I 




URRIT 


THIS PROGRAM IS USeO 10 PRINT POSITION AND THRUST OIPECTION 
FOR A SINGLE ORRIT. 

INPUT! If 10 OIM O.E. ANO THFIR AOjOINTS 

A« acceleration IFVEL. MAY PE SET TO ONE 
Nt ONE half NOMRFR OF POINTS ON ORBIT PRINTED 
NCONT* FLAG TO RFaO DATA FOR ANOTHER ORRIT 


IMPLICIT REAL*R<A-H.0-Z» 
DIMENSION Z( 10) fH( 101 «G( 101 
COMMON/A/AfAMUtPI 
NAMELIST/IN/2«A,N 
C 

PI« OARCOS(-l.OO) 

AHU=X.DO 

10 READ (SflOOO) ZfA 
READ (5,1001) N 
PF* PI/OFLOATIN) 

WRITE 16, IN) 

00 20 I-1,N 

CALL FCT(F1,F2,Z,h,G) 

F1bF1+0F*2.D0 

F?»F2+DF*2,D0 

20 CONTINUE 

READ (5,1001) NCONT 
IF (NCONT, GT.O) GO TO 10 
STOP 

1000 format (F25.15) 

1001 format (12) 

END 
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00000020 
00000030 
00000040 
00000050 
00000060 
OOOOOC70 
OOOOOORO 
000000‘»0 
00000100 
ooooono 
00000120 
00000130 
>0000140 
00000150 
00000160 
00000170 
000001 RO 
00.000190 
00000200 
00000210 
00000220 
00000250 
00000270 
000002PO 
00000290 
00000300 
00000310 
00000320 
00000330 
00000340 
00000350 
00000360 



n n o o o o o o o o oor» o o o o o o o ooooo 


nnrnonio 

00000020 


C *^CT 


CONTAINS PAINT STATFM^NIS 


SOBAOUTINE PCTIFI .F2.7.H,6) 

implicit REAL«fMA-H.()-S), INTEGER ll>N) 

NAHELIST/PRFCT/VEC 
COMMON /A/A«AMU.PI 

DIMENSION 21 101 «G( 10) .HI 10) . AMI S.3) .PAMI 5,3.^ ) .VECI 3 1 .X (5 1 «PRA| S) 


MaO 

F«F1 

EVALUATE M AND PARTIAL OF M WRT STATE 

DO 3 1-l.S 
3 XII)«ZI)I 

10 CALL EVALMPIX,F,AMLI.AM«PAM,1I 

evaluate The common SCAIOR factor 

CTbOCOSIF) 

ST-OSINIFI 

RA- 1,000-ZI3»*CT -7I2)*ST 
FAC> A*RA/I2.0D0«PI) 

evaluate The UNIT OF M TRANSPOSE LAMBDA 

ABVEC- 0.00 
00 30 I«lt3 
VECI 1 1*0.000 
DO 20 J»l«3 

20 VECIII* VECII) * AMIJ.I)*ZIJ*3) 

30 ABVEC* ABVEC ♦ VECII)*«2 
ABVEC* DSORTIABVEC) 

DO 40 1*1,3 
VECI)l*VECin/ABVEC 

WRITE I6,PRFCT) 


EVALUATE the partial OF RA WRT X 

PRAI 11*0.00 

PRAI2)*-ST 

PRAI3I*-CT 

PRA|4)*0.00 

PRAI3)*0.00 

AB.VEC*ABVEC/RA 

EVALUATE the FUNCTION 


00000030 
00000040 
00000070 
00000030 
OOOOOOR2 
0Q0000R4 
00000090 
00000092 
00000094 
00000100 
00000110 
00000121 ' 
000001 40 
00000130 
00000160 
00000170 

oooooino 

0000U190 

00000192 

00000194 

00000200 

00000220 

00000230 

00000240 

00000242 

00000244 

00000230 

00000260 

00000270 

000002RO 

00000290 

00000300 

00000310 

00000320 

00000330 

00000340 

00000330 

00000360 

00000370 

000003R0 

000003R2 

000003B4 

000003B6 

00000390 

00000391 

00000392 

00000393 

00000394 

00000393 

00000396 

00000397 

0000039B 

00000399 

00000400 
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c 

DO 60 l-lt5 

r.( n« o.ono 

f,t 1*5I*0.000 
00 50 J«l,3 

G( I 0(1) * 4(^( i<j)«vec(j) 

DO 50 L«l*5 

50 G(l + 5(« G(I45I - '< L*5)*PAM(L»J» I I^VECU) 

r,( 1 )• FAC*G! I ) 

60 G( I*5)»FAC*10( U5 l-APVFC*PRA( I I » 

IF (M.EO.l) RETUPM 
no 70 I -It 10 
70 Hin- G(I) 

F-F2 

M-1 

GO TO 10 
END 


00000410 

00000420 

00000430 

00000440 

00000450 

00000460 

00000470 

000004R0 

00000490 

00000500 

00000510 

00000520 

00000530 

00000540 

00000545 

00000550 

00000560 
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C SUBRIHITINE eVAlMP 

c This sitp«mjTint evAiHAT^s thp sx3 hathix *» amo ime 
t martial of m M-*T X 

C contains print STATPWPMS 
c 

C IF IMFLAGsl, ROTH M (AM) AND ITS PARTIAL (PAH) ARE EVALUATEO 

t IF IMFLAGc?, ONlT P (A“I IS EVALUAIED 

C IF IMFLAGs3, Only The PARTIAL OF H tPAM) IS EVALUATED 

C 
C 

SUBROUTINE EVAIMPIX. THFTA, AM«I, AM, PAH, IMFlAGI 
implicit REAL^BI A-h.O-SI . INTEGER (1-NI 
C 

NAMELIST/PRINT/ F.XI.Vl 
C 

DIMENSION XISI, AM(S.3), PAH(5,3,SI 

ENsDSORTI AMU/XI 1 l••3l 

PhO= DSORTU.OO- x(?)*o;f- x(3l*«2) 

BETA= l.L>0/(l.D0 ♦RHO) 

CT= OCOS(THETA) 

ST* DSIN(ThETA) 

RA* l.OO-XOIX'CT -XI2)*ST 
TETA* X( 3)*ST-X( ?)*CT 
BETA3* BETA«A3/{ 1 .00 -BETA) 

XI* X(1I*;(1.0C -*( ?ie«2«BETf )»CT >X ( 2 )»X I 3 )»BETA*ST -X(3)> 

Vl= XUIYltl.OO (3 l*»2<-RETt I*ST 4X1 2)*x ( 3)»PFTA*CT -XI?)) 
XlOOT* -((1,00 - x( 21»*2»BETAI«ST -X( 2 )«X ( 3)“BET A»CT ) *EN*X 1 1 ) /R A 
VIOOT* ((1.00 -X n»>»?*BETA)-f.T -X t 2 )»X ( 3 )*RET A*ST ) *EN«X ( 1 J /R A 
PZl* xm*(ZETA«(HETA*Xt2)*»?«BeTA3J -(X(2I«BETA -ST)0CT/Rt) 
0Z2* -xm*(-ZETA*X(2)«X(3)*fETA3 ♦l.OO ♦(ST -X(2)*BETA)»ST/RA) 
PZ3* X( I )»(-ZE''A*X( 2)#X(3)'»8ETA3-;.00 ♦(X(3)»B£TA -CT)«CT/RA» 
PZ4* X( n»(-?ETA*(BM A ♦X(3)?»2*BETA3) *(CT -X ( 3 > *»ETA » *ST/RA ) 
IF (IMFLAG .CO. 31 GO TO 10 
C 

f*theta 

WRITE (6, PRINT! 

C 

C IF 00 NOT WANT TO EVALUATE PART AL OF M, BRANCH TO 10 
AMI 1,11* 2.oo*xinriT/(FN»«2*x' iii 
AMI 1,21* 2,00*VlP0T/( EN**2*X’ in 
AMI 1,3I*0.DC 
OUM* RH0/(EN*xm**2l 
AH(2,1)« 0UM*(PZ2- ^;’)«BETA‘=X100T/ENI 
AM(2,2I= OUM*IPZ<- -XI 2)-»BETA=xviDOT/ENl 
AM(2,3I= 0UM»(X(3)«IX(5l»n -X(<.)»Xin/RHD**2 
AH(3,l)-= -0UM*IPZ1 ♦x(3)«BETA*Xir*0T/eN» 

AM(3,2)= -0C!M#IP7- ♦X(3)*BETA»YinOT/ENI 
AM|3,3I* -0UM*I X(2l»i X(SI»Yl -X(Xfl»Xll/RH0**2l 
AM(A,1I*0.00 
AMI4,2)*0.00 

OUM* (1.00 ♦X(*I»»2 ♦X(S)««2)/(2..' •^•X(n«‘«^#RHO> 

AH (4, 3)* DUMA VI 

AMI 3, 11*0,00 

AMIS, 21*0. DO 

AM(3,3I* 0UM*X1 

IF ( IMFLAG .EO. 2) RETURN 

C IF WE ONLY WISH TO evaluate M THEN PROGRAM RETURNS HERE 


OOOnoO’.O 

00000020 

00000030 

00000040 

ooooooso 

oocnoof.0 

000G007U 

OOOOOOBO 

OOOOOORO 

COOOOlOO 

ooonoiio 
00000112 
00000 11 <. 
000001 IE 

000001:0 

00000130 

00000140 

00C0O13O 

oooooif.0 

00000170 

OOOOOIRO 

000001«>0 

00000200 

00000210 

00000220 

00000230 

00000240 

00000250 

00000260 

00000270 

OC00O2B0 

00000290 

00000292 

00000293. 

00000294 

00000296 

00000300 

00000310 

00000320 

00000330 

00000340 

00000350 

00000360 

00000370 

00000380 

00000390 

00000400 

00000410 

00000420 

U0000430 

00C00440 

00000450 

00000460 

00000470 

00000480 

00000490 




^ - 




I 

I 

! 
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♦Xt3J»BETA»ST ♦PZ^sZE fA*X (?n 
♦ PZA«X(?I*.*ET4I 
-PZ5»XI31«2ETA1 
+X(2»«BETA*CT -PZfc«xi3)«ZETAI 


10 CA= DSORTtAM|)/x( 1 ) )/MA 
P?5= X(2)»BETA3 
PZh* X(3J*pETA3 
PZ*** CA»ST/RA 
PZ10= CA#CT/RA 

PZ20» Xt l)*(- 2 .r) 0 *x( 2 )*BETA«CT 
PZ26» X( n»(X(?l«Hf TA*ST -1.00 
PZ29« XI n*(X(3)<-pETA»CT -1.00 
PZ35* Xm*l-2.D0*X( 3I#BETA«ST 
pzii“ -xiooT/i ?.no*xm ; 

PZ12= -VlDOT/(2.no*x( n ) 

0UM1= l.DO -RA 

PZ13= -C4«(-2.D0«x(?)*BETA*ST -X(3I*BETA*CT -PZ5*X I ? )*Dum 1 ) *PZ9 
1 ■ “XlOrT/CA 

PZ1A= -CA*(-X(2|ePET4«CT -PZA*X I 2 J •OUMIJ +PZ 1 0*X lOOT /C A 
PZ15= -CA*(XI3l"hETAa<.T +PZS«x ( 3»»riUMl | ♦P29»V IDOT/CA 
PZih* -CA«I2.00«X(3I»BETA*CT 4.XI 2 »«BETA«ST ♦PZ6*l)UMl*X (3) ) 

I ♦P210»V1'>01/CA 

miM= BETA *Xi:i »PZS 

P217= 1.00+ P23*XI2I*(3.D0/BETA '»1.P0/I 1.00-BETAI) 

P21B= (2.00 ♦P21VI*P25 
P219» P217*P2B 
0(IM2^ X(2I«BETA -ST 

PZ21« -XI 1 l*ICT*fi|iP -ZETAwPZlB ♦CT*OUM/RA ♦CTvST#nilM2/RA*«2( 
P222“ Xin«(ST»niiM .ZETASP/IR -CT*X(?1*P76/RA-CT'**2'»DI)M2/RA**2) 
PZ23= BETA3»(3.00/PE1A *1. DO/I 1.00 -PETAM 
P22<.e P223*PZ5 
PZ25xP223«PZ6 

PZ27* XI n«l-CT*>l2)*XI3)*RETA3 +2ETA*XI3I*IBETA3 ♦X(2>*PZ24> 

1 ♦IST*IBETA '»x(2)*PZ9) >/RA ♦ST«*2*0UM2/RA«*2) 

P228= Xin*IST»X(2)-»»l3)*BETA3 ♦ZETA»XC2 I*«BETa3 ♦X(3)*PZ25) 

1 ♦XI2»'»STep;6/R4 ♦ST*CT»0UM2/RA**2» 

0UM2= XI3»»BETA-CT 

PZ30= XI l)*ICT*XI2)*Xl3)*BETt3 -Z ETA*X 1 3 )• I BETA3 ♦XlZIePZZ*) 

1 +CT»XI3>*PZS/RA *CT«ST*f Uf*2/RA*»2> 

PZ31= Xm*l-ST*X(2)=»X(3)»BE'A3 -Z ETA«XI 2 )• I BETA3 +XI3)*P225> 

1 +CT*IBETA *XI 3I*PZ6J/I A +CT*#2*DOM2/RA**2 > 

DUH= BETA ■*-XI3)*PZ6 

PZ32» l.OO ♦PZB*XI3I*I3.P0/BITA ♦!. 00/(1. DO -BETA!) 

PZ33= PZ32*PZ5 

PZ34« PZ32*PZ6 ♦?.00»X(3»»BEA3 

P236= X(1»»(CT»0UM -ZFTA*PZ3:» -ST*XI 3J*PZ5/RA -ST««2*DUH2/RA**2) 
P237= XI 1 J*I-ST*1)iiH -ZETA»PZ14 -ST»(BETA ♦X(3»#PZ61 /RA -ST«CT 
I •DUH2/RA**21 

DO 20 J:=l,2 

20 PAMll.J.lJs 3.00«AM| 1.J)/I2.D0*XI 11) 

DUH =2.00*XI n**2/AHU 
PAH(1,1,2)« PZ13*0II« 

PABI1,1,3I= PZ14«0UH 
PAMI l,2f2)= PZ15*nttM 
PAMI 1,2.3I = PZ16A0IJ» 

0U«= OSORTIA J*XIIII 
CBsRHO/DUM 

PZ38* -XI2»*CB/RhP*«2 
PZ39» -XI 3)«CB/Ri-0«‘»2 
PAH(2*U1)b ami 2. 1 ) /i /. 00«X( in 

PAHI2,l,2»= -CB«BETA*XinOT/EN +PZ3B*AM( 2. I »/CB ♦CB*CPZ27 


oooonsoo 

00000510 

00000520 

00000530 

00000540 

00000550 

00000560 

00000570 

000005B0 

00000590 

00000600 

00000610 

00000620 

00000630 

00000631 

00000632 

00000633 

00000634 

00000643 

00000650 

OOOOC660 

00000670 

000006R0 

00000690 

00000700 

00000710 

00000720 

00000730 

00000740 

00000750 

00000760 

00000770 

00000780 

00000790 

00000800. 

00000810 

00000820 

00000830 

00000840 

00000850 

00000860 

00000870 

00000880 

00000890 

00000900 

00000910 

00000920 

0000P930 

00000940 

00000945 

00000950 

00000955 

000U0960 

00000970 

00000980 

00000990 

00001000 
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1 -X«?»*f<MA*P713/eN -X(?l«Klf>nT*P?3/FMI 000010)0 

pAHi2tl.3i« p?j<)*AM( 1 i/f.p *Cfl*(P7?** -P7i»#xi?)*xir>nT/FN 00001070 

1 -x(?>«pt lA'-F714/fN| 00001030 

P4“(2t2«n= AM( ?.? I /( ?.ti09X( 1 1 1 0000)040 

PA»(2f2t2)« P?3p»4»*t 7,71 /CH ♦f.fo(P73f> -Of TA*V1D0T/EN -XI?) 00001040 

1 *YinOT*l-7'>/FN -XI 21«Pf TA«>P7 15/fNl 00001040 

PAMI2,?,3)« P739*A»'l?,?l/f.B ♦CB4IP737 -X 1 2)*V innT»P76/eM 00001070 

1 -XI2)< HM A*P710/5N) 0000)0-<0 

PAM(2,3»1)£ API2. 'l/l?,(*0#xni) OOOOlOwO 

Ot»f*l» X(5I«V1 -X|4|*X1 00001100 

PAM(2,3t21* X(3)«IXI5I*P729 -X I 4 ^•P^?0 1 / IRHO^miH) ♦XI21»XI3) 00001170 

1 •nuMl/( Rwn‘’'3*nuM) 00001)30 

PAH(2t3.3)= OUMl/l«wn»OtW) 4XI 3I*(XI3)*P733 -X 14 1 •PZ26 ) / |RHO 

1 


75= II 
PZ40= 
PZ41 = 
PZ42 = 
PZ43= 
PZ44 = 


PAMI5* 
PAM<5« 
PAH(5t 
00 30 


00 30 
00 30 J=lt2 
30 PAMI I,j,K)>0.00 
00 40 I=lf3 
00 40 J=l«2 
00 40 K=4*5 
40 PAMI I,J,K)=0.00 
RETURN 
ENO 


3»3) = 

OUMl/l«wn=ntW) 4X1 3I*(XI5)*PZ35 -XI4)*RZ26)/IRH0 

Oi’noi ifco 

*01IM 1 ♦xl3l»'’7»nUMl/| Rh0«*3«01'M » 


00001 ISO 

3»4)> 

-X(3)"Xl/(BH0«nilH) 


00001140 

3,51 = 

XI3I=Y1/IPHU*0UM| 


00001170 

1, li- 

AMI3, 11/(2. oo*xmi 


0000 11 HO 

lt?)* 

PZ3H=AHI 3,11/CB -CB»(PZ21 4X1 3)*X 100T*PZ5/EN 

00001 190 

♦XI3)*BE1A=P713/EN) 


00001700 

1,3)» 

PZ39-AHI3.il/CB -CB*(PZ22 4(PETA*X100T 

4X(31 

00001710 

♦ X100T-P76 4X(3l = BtETA«PZ14|/ENI 


00001770 

2,11 = 

AM(3.2)/I?.00*x:il) 


00001730 

2,21 = 

PZ3ft»AMI3,2)/CB -CB*(P7.30 4X1 3)*l Y100T*PZ5 

0000)740 

•»BETA»PZ15)/ENI 


00001740 

2,31 = 

PZ39-AHI3.21/CB -CB-IPZ31 4|BETA«Y100T 

4X13) 

00001740 

*Y100T=PZ6 4X(3I«BE TA*PZ16>/EN| 


00001770 

3,11 = 

AMI3, 31/(2. 00*X 1)1 


0O0017H0 

3,21 = 

-0()Ml/IRHr'*nuM) -XI2)«(X(5I*PZ29 -X(4)*PZ20)/ 

00001 7*^0 

1 RHO«DUN ) -X 1 2 1 =*2*1)013 1 / 1 RH0««3*DUH 1 


00001300 

3,3) = 

-XI21=(XI51*PZ35 -Xt41*PZ261/IRHO*OUM) 

-X(2I*X|3) 

000013)0 

*0UMl/IRHn**3*0IIM) 


00001370 

3,41- 

X(21*X1/(PH0*0UH1 


00001330 

3,51 = 

-XI21*Y1/(RH0*0UH) 


00001 >40 

.00 4X(5)««2 *X(4)«*2)/I2.00*OUM*RHO) 


00001 340 

-Z5/I2.00*XI1) ) 


0000134'^ 

XC2)*Z5/RHO**2 


00001370 

XC3)*Z5/RHO**2 


000013«i> 

X(4)/(0UN*RH0| 


00001 390 

XI51/I 

OUM-RHO) 


0000l4f>0 

3,1) = 

AH(4, 31/(2. no*x(i)i 


00001410 

3,2) = 

PZ41*Yl4Z5*PZ29 


OOOOl4?0 

3,31 = 

PZ42*Y1 4Z5=PZ3> 


00001430 

3,41 = 

PZ43*Y1 


0000 1440 

3,51 = 

PZ44*V1 


00001440 

3,11 = 

AMI5, 31/(2. 00*Xini 


00001440 

3,21- 

PZ41*xl 475-P223 


00001470 

3,31 = 

PZ42*X1 4ZS*PZ26 


0000 14P0 

3,41 = 

PZ43*xi 


00001490 

3,51 = 

PZ449X1 


000015n«> 

K=l,5 



00001510 

3,K)=C 

1.00 


00001570 

1=4,5 



000015*0 


0000144'’ 

00001 540 

0000 1540 
000015 7'’ 
000015AO 
00001540 
00001400 
oorr )4in 
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